Begin
for a:= 1 to 20 do
for b:= 1 to 20 do
for c:= 1 to 20 do
begin
if a*a+b*b=c*c then
writeln(a:4,b:4,c:4);
end;
<span>end.</span>
(а или b) лучший и по удобнее
1 Кбайт = 8192 бит
225*8192=1 843 200 бит всего в тексте
1 843 200/16/60/30 = 64 страницы
Ответ: 64 страницы
Информационные потоки преобразуют и обрабатывают информацию