КД
Кирилл Данилов
нужно нарисовать блок-схему для программы
program feg;
uses crt;
var i,j,k:integer;
begin
clrscr;
for i:=1 to 20 do
for j:=i to 20 do
for k:=j to 20 do if i*i+j*j=k*k then writeln(i,' ',j,' ',k);
readln;
end.
скиньте пожалуйста графическим файлом на этот адрес ezio_sniper@mail.ru