Найти все натуральные числа а, b и с из интервала от 1 до 20, для которых выполняется равенство: a^2+b^2=c^2 (составить программу на языке программирования)

Question

Информатика

Беатриса

5 апреля, 20:41

Найти все натуральные числа а, b и с из интервала от 1 до 20, для которых выполняется равенство: a^2+b^2=c^2 (составить программу на языке программирования)

+1

Ответы (1)

Знаешь ответ?

Валериан · Answer 1

var a, b, c:integer;

begin

for a: = 1 to 20 do

for b: = 1 to 20 do

for c: = 1 to 20 do

begin

if a*a+b*b=c*c then

writeln (a:4, b:4, c:4);

end;

end.