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

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

Question

Информатика

Камилла

9 июля, 15:05

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

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

+4

Ответы (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 задает пользователь