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

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.