1) Ввести с клавиатуры целое число. Определить четное оно, или

нечетное.

2) Решить следующие задачи:

Является ли треугольник с длинами сторон a, b, c:

* прямоугольным;

* равнобедренным;

* равносторонним.

Стороны вводятся с клавиатуры.

1)

var

x : integer;

begin

readln (x) ;

if x mod 2 = 0 then

writeln ('Число четное') ;

else

writeln ('Число нечетное') ;

end.

проверим прямоугольность с помощью теоремы Пифагора

var

a, b, c : integer;

begin

readln (a, b, c) ;

if (a*a+b*b = c*c) or (b*b+c*c = a*a) or (c*c+a*a = b*b) then writeln ('Треугольник прямоугольный) ;

elseif (b=a) or (b=c) or (a=c) then writeln ('Треугольник равнобедренный') ;

elseif (a=b) and (b=c) and (a=c) then writeln ('Треугольник равносторонний') ;

else writeln ('Треугольник не прямоугольный, не равнобедренный и не равносторонний') ;

end.