ПРОГРАММА НА PASCAL! Дано натуральное число m представить в виде сумме квадратов двух натуральных чисел. Выдать сообщение, если такое представление невозможно
ПРОГРАММА НА 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.
Не нашли ответ?
Похожие вопросы