Составить программу в паскале с использованием циклических операторов:

найти все натуральные решения уравнения х^2+у^2=М, где М>0 задает пользователь

Question

Информатика

Ленуся

16 августа, 15:21

Составить программу в паскале с использованием циклических операторов:

найти все натуральные решения уравнения х^2+у^2=М, где М>0 задает пользователь

+1

Ответы (1)

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

Денисия · Answer 1

var

x, y, m: integer;

begin

readln (m);

writeln ('x':6, 'y':6);

for x : = 0 to m do

for y : = 0 to m do

if (sqr (x) + sqr (y) = m) then

writeln (x:6, y:6);

end.

Составить программу в паскале с использованием циклических операторов:найти все натуральные решения уравнения х^2+у^2=М, где М>0 задает пользователь

Составить программу в паскале с использованием циклических операторов:

найти все натуральные решения уравнения х^2+у^2=М, где М>0 задает пользователь