1) Ввести с клавиатуры целое число. Определить четное оно, или нечетное. 2) Решить следующие задачи: Является ли треугольник с длинами сторон a, b, c : * прямоугольным; * равнобедренным; * равносторонним. Стороны вводятся с клавиатуры.

На Pascal:

1) Program chislo;

var

a:integer;

begin

readln (a);

if amod2=0 then writeln ('четное')

else

writeln ('нечетное');

end.

2) Program treugolnik;

var

a, b, c:integer;

begin

readln (a);

readln (b);

readln (c)

begin

if (a**2=b**2+c**2) or (b**2=a**2+c**2) or (c**2=a**2+b**2) then

writeln ('прямоугольный');

end;

begin

if (a=b) and (b=c) then

writeln ('равносторонний')

else

if (a=b) or (a=c) or (b=c) then

writeln ('равнобедренный');

end;

end.