Составьте программы:

1. Определить является ли число чётным

2. Найти первую цифру 3-х значного числа и определить делится ли она на 3

1) var a:integer;

begin

writeln ('Введите число');

readln (a);

if a mod 2=0 then writeln ('Число чётное')

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

end.

2) var a, b:integer;

begin

writeln ('Введите число');

readln (a);

b: = a div 100;

if b>9 then writeln ('Ошибка') else begin

writeln ('Первая цифра это');

writeln (b);

if b mod 3=0 then writeln ('Первая цифра числа делится на 3')

else writeln ('Первая цифра числа не делится на 3'); end;

end.