Question

1) Вводятся 2 числа. если квадрат их разности-число положительное, то найти разность квадратов этих чисел, иначе их произведение.
2) Является ли произведение чисел а и b четными?
3) Является ли треугольник со сторонами a,b,c-прямоугольным?

Answer 1

program test;uses crt;var a, b, c: integer;begin  write('Enter a, b : ');  readln(a,b);  write('1)');  if sqr(a - b) > 0 then    writeln(sqr(a) - sqr(b))  else     writeln(a * b);  write('2)');  if (a * b) mod 2 = 0 then     writeln('True.')  else    writeln('False.');  write('Enter c: ');  readln(c);  write('3)');  if (a*a=b*b+c*c) or (b*b=a*a+c*c) or (c*c = a*a+b*b) then    writeln( 'Треугольник прямоугольный')  else    writeln( 'Треугольник не прямоугольный')  end.

e9465a42e790659fbda43be50d60639d.pas