Найти все числа, которые можно представить в виде суммы квадратов двух натуральных чисел.

@PARNISH · Регистрация: 12.04.2010

Дано натуральное число n. Среди чисел 1,2, …, n найти все те, которые можно представить в виде суммы квадратов двух натуральных чисел. (Определить процедуру, позволяющую распознавать полные квадраты).

@Snoopy · 18.04.2010, 16:57

Pascal

uses crt;
var i,j,m:longint;
begin
Сlrscr;
Write('Введите число:');
Readln(m);
 for i:=1 to round(sqrt(m))+1 do
  for j:=1 to round(sqrt(m))+1 do
   if i*i+j*j=m then 
    begin
     Write('Можно! Числа: ',i,' и ',j);
     Readln;
     halt;
    end;
Write('нельзя');
Readln;
end.

остальное додумаете сами...

@PARNISH 3 / 3 / 0 Регистрация: 12.04.2010 Сообщений: 39
		1
	Найти все числа, которые можно представить в виде суммы квадратов двух натуральных чисел. 18.04.2010, 16:39. Показов 3189. Ответов 1 Метки нет (Все метки) Дано натуральное число n. Среди чисел 1,2, …, n найти все те, которые можно представить в виде суммы квадратов двух натуральных чисел. (Определить процедуру, позволяющую распознавать полные квадраты). 0

Опции темы

Найти все числа, которые можно представить в виде суммы квадратов двух натуральных чисел.

Решение