Опубликовано 13.06.2017 по предмету Информатика от Гость >> <<

ПРОГРАММА НА PASCAL!
Дано натуральное число m представить в виде сумме квадратов двух натуральных чисел. Выдать сообщение, если такое представление невозможно

Ответ оставил Гость

Programm Pozitiv;
var
m,m1,m2 ,result:real;
begin
clrscr;
write(Введите число);
Read(m);
if m<0 then write(Вы ввели некорректное число) else
begin
m1:=m*m;
m2:=m1;
result:=m1+m2;
write(Ответ:,result);
end;
end.