Задача по Pascal. Экзамен 1 курс Технаря.

[Сергей9537]

Даны 3 числа, определить являются ли они пифагоровыми числами (a2+b2=c2) - формула пифагора, цифры это степени. Составить программу определения пифагоровых чисел
При:
1 больше или равно A больше или равно 20
1 больше или равно B больше или равно 20.
А вам слабо!?)

[Mad_Cat]

А вам слабо!?)

А оно нам надо???
на "слабо" тя в армии брать будут)

[Сергей9537]

Да не ребята плиз!) Борода, завтра экзамен прошу помощи).

[Sciv]

begin
  repeat
    readln(a);
  until (a>=1) and (a<=20);
  repeat
    readln(b);
  until (b>=1) and (b<=20);
  repeat
    readln(c);
  until (c>0);
  if (a*a+b*b=c*c) then WriteLn('Числа являются пифагоровыми')
  else WriteLn('Числа не являются пифагоровыми');
  ReadLn;
end.

Объявление переменных a,b,c оставляю на Вас.

[Сергей9537]

Очень благодарен!