Составить программу, выдающее сообщение true/false Тройка чисел a, b, c является тройкой Пифагора: c^2= a^2+b^2

Question

Виктория · Accepted Answer

var x, y, c:real;

begin

writeln('Введите x');

readln(x);

writeln('Введите y');

readln(y);

if c^2=x^2+y^2

then writeln('true');

else writeln('false');

end.

Zoros Go · Answer

Writeln - удобная функция, она сама приводит все аргументы к строкам, поэтому можно написать так:

var a, b, c: real;
begin readln(a, b, c); writeln(c * c = a * a + b * b); end.