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

DFV7 DFV7    2   12.05.2019 11:51    0

Ответы
natata23081 natata23081  09.06.2020 21:59

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
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика