Предмет: Информатика,
автор: klasss2
С клавиатуры вводятся 5 чисел. Определить есть ли среди них положительные, двузначные, кратные 5 и сколько их. Паскаль
Ответы
Автор ответа:
0
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
Похожие вопросы
Предмет: Биология,
автор: Аноним
Предмет: История,
автор: ABOBa22222
Предмет: Литература,
автор: Mureps
Предмет: Алгебра,
автор: cvetllllana
Предмет: Математика,
автор: Ирина123445789