ИНФОРМАТИКА 9 КЛАСС вводить числа с клавиатуры,пока не будет введено число кратное 5.
2. вводить числа с клавиатуры, выводить ответ, до каждого числа четное оно или нет, пока не будет введен 0.

1-- Var a, b : integer; beginb:=0; readln (a) ; while a 0 dobeginif a mod 5 = 0 then b:=b+1; readln (a) ; end; writeln ('Кол-во чисел кратных 5: ', b) ; end.

Объяснение:

2   Var a:integer;

begin

write ('a = ') ;

readln (a) ;

if a mod 2 = 0

then writeln ('Число ', a,' четное')

else writeln ('Число ', a,' нечетное')

end.

Пример:

a = 28

Число 28 четное