Задача на перебор вариантов - Pascal ABC

Формулировка задачи:

Помогите пожалуйста.Для заданного числа проверьте, является ли оно суммою квадратов двух чисел. Добавлено через 3 часа 14 минут Пожалуйста помогите

Код к задаче: «Задача на перебор вариантов - Pascal ABC»

textual
var i,j,n:longint;
    f:boolean;
begin
 f:=false;
 writeln('n = ');readln(n);    
 for i:=0 to trunc(sqrt(n)) do
  for j:=i to trunc(sqrt(n)) do
   if i*i+j*j=n then begin f:=true;writeln(i,'^2 + ',j,'^2 = ',n)end;
  if not f then writeln('---') 
end.
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.

15   голосов, оценка 4.067 из 5


СДЕЛАЙТЕ РЕПОСТ