Составить программы решения заданий в Паскале:

1. Определить, является ли целое число N четным двузнычным числом.

2. Подсчитать количество отрицательных чисел среди чисел а, b, c.

№1

Program z1;

var N:integer;

Begin

write ('Введите число N: ') ;

readln (N) ;

if (N mod 2 = 0) and (N div 100 9) then write ('Данное число является четным двузначным') else if (N div 100 9) then write ('Данное число не четное двузначное') ;

end.

№2

Program z2;

var a, b, c, k:integer;

Begin

k:=0;

writeln ('Введите числа a, b и c: ') ;

readln (a, b, c) ;

if a<0 then k:=k+1;

if b<0 then k:=k+1;

if c<0 then k:=k+1;

write ('Количество отрицательных чисел: ', k)

end.