Задать вопрос
7 декабря, 00:06

С клавиатуры вводится последовательность чисел до тех пор пока не будет введено число 0 найти количество чисел из введенных кратных 5

+5
Ответы (1)
  1. 7 декабря, 04:05
    0
    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.
Знаете ответ?
Сомневаетесь в ответе?
Найдите правильный ответ на вопрос ✅ «С клавиатуры вводится последовательность чисел до тех пор пока не будет введено число 0 найти количество чисел из введенных кратных 5 ...» по предмету 📘 Информатика, а если вы сомневаетесь в правильности ответов или ответ отсутствует, то попробуйте воспользоваться умным поиском на сайте и найти ответы на похожие вопросы.
Смотреть другие ответы