16 Кбайт = 131072 бит;
16 симв · 40 строк · 8 бит = 19 200;
16 Кб (то есть 131072 бит) ÷ 19 200 = 6,8
В ответе пишем 6 страниц.
Var n,a,b,c,d:integer;
begin
readln(n);
for a:=1 to n-1 do
for b:=a to n-1 do
begin
d:=a*a+b*b;
c:=1;
while c*c<d do c:=c+1;
if (d=c*c)and(c<n) then writeln(a,' ',b,' ',c);
end;
end.
Пример:
20
<span>3 4 5
5 12 13
6 8 10
8 15 17
9 12 15</span>
Взять рубашку
включить утюг
подождать пока утюг нагреется
положить рубашку на гладильную доску(или ещё на что то твёрдое)
погладить рубашку
свернуть рубашку
выключить утюг
Happy End!
Program aaa;
uses crt;
var a,b,c:integer;
x, y: real;
begin
writeln(' Vvedite a ');
readln(a);
writeln(' vvedite b ');
readln (b);
wriateln(' Vvedite c' );
readln (c);
x:=((2*a^2-b)/(3*c));
y:=(sqrt(x+c^2)+4*a*b);
writeln( 'x=', x, 'y=', y);
<span>end.
Вот программа, к сожалению, паскаля на компе у меня нет, поэтому, думаю, ты сам справишься с подготовкой программы к запуску и тестированию
</span>
жёлтый лимон синяя луковица лимон и 2 луковицы синей