Дан фрагмент программы бейсик паскаль алгоритмический нц для n от 1 до 5 for n=1 to 5 for n: =1 to 5 do нц для m от 1 до 4 for m=1 to 4 for m: =1 to 4 do k: =n-m+5 k=n-m+5 begin k: =n-m+5; b[n,m]: =n*n*n-m*m+k b(n,m)=n^3-m^2+k b[n,m]: =n*n*n-m*m+k; кц next m end кц next n чему будет равно значение b[1,4]? с полным решением ( написать всю программу на каждый вид ) !

Чтобы квадрат вписался в круг, его диагональ должна быть равна диаметру круга. Если трактовать "уместиться" как "пролезть", то диагональ должна быть меньше диаметра..
Формулы площадей квадрата  S₁ и круга S₂ известны, что легко позволяет нам найти нужное условие.

Если нужно, чтобы случай, когда квадрат вписан в круг тоже учитывался, строгое неравенство следует заменить нестрогим.

// PascalABC.NET 3.0, сборка 1160 от 05.02.2016
begin
  var s1:=ReadReal('Площадь квадрата');
  var s2:=ReadReal('Площадь круга');
  if pi*s1<2*s2 then Writeln('Квадрат умещается в круге')
  else Writeln('Квадрат не умещается в круге')
end.

Тестовое решение:
Площадь квадрата 24.6
Площадь круга 28.4
Квадрат не умещается в круге

Тәжірибеден көптеген пайдаланушылар әрдайым ноутбукте антивирус орнатпайды деп айтуға болады, себебі ноутбуктің бәрі тез емес, бірақ антивирус оны баяулатады, және олар бейтаныс сайттарға кірмейтінін, файлдарды жүктемейтінін - бұл дегеніміз, және вирус алмайды (бірақ әдетте керісінше болады ...).

Айтпақшы, кейбір адамдар тіпті вирустардың ноутбугына «қоныстанған» деп күмән келтірмейді (мысалы, олар барлық желілерде пайда болатын жарнамалар сол сияқты болуы керек деп ойлайды). Сондықтан мен осы ескертуді эскиздеуге шешім қабылдадым, онда мен вирустардан және басқа желілерде жиналуы мүмкін басқа «жұқтырулардан» ноутбуктарды алып тастау және тазарту үшін не істеу керектігін түсіндіремін.