Меню сайта

Задача №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&gt-0 then write(‘можно ‘,k,’ способами’)

else write(‘нельзя’)-

readln-

end.

Категория: Циклы | Дата: 19.11.12

Меню раздела
Блок