Задача №12
Можно ли данное натуральное число представить в виде — суммы двух квадратов чисел.
Program for_12-
uses crt-
var k,g,i,j,m : longint-
begin
clrscr-
write(‘введите число ‘)-readln(m)-
k:=0-
for i:=1 to m do
begin
for j:=1 to m do
if i*i+j*j=m then
begin
k:=k+1-
writeln(i,’*’,i,’+’,j,’*’,j,’=’,m)-
end-
end-
if k>-0 then write(‘можно ‘,k,’ способами’)
else write(‘нельзя’)-
readln-
end.
Категория: Циклы |
Дата: 19.11.12
|