Question

С клавиатуры вводятся 5 чисел. Определить есть ли среди них положительные, двузначные, кратные 5 и сколько их​. Паскаль

Answer 1

program raf105;

var a, counter,i: integer;

begin

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

for i:=1 to 5 do

begin

 readln(a);

 if (a>0) and (a>=10) and (a<=99) and((a mod 5)<>0)

   then counter+= 1;

end;

writeln('Таких цифр: ',counter);

end.

Язык  PascalABC