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

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

+4
Ответы (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 ...» по предмету 📘 Информатика, а если вы сомневаетесь в правильности ответов или ответ отсутствует, то попробуйте воспользоваться умным поиском на сайте и найти ответы на похожие вопросы.
Смотреть другие ответы
Похожие вопросы по информатике
Составьте схему алгоритма программы, которая будет осуществлять ввод чисел до тех пор, пока не будет введено число 17. Как только будет введено число 17, программа должна вывести количество введенных чисел
Ответы (1)
С клавиатуры вводится последовательность чисел до тех пор пока не будет введено число 0. требуется найти произведение чисел из введенной последовательности кратных пяти
Ответы (1)
Помогите 2 задачки сделать на паскале 1) с клавиатуры вводится последовательность чисел до тех пор пока не будет введено число 0. требуется найти количество чисел во введенной последовательности, оканчивающихся на цифру 7. 2) Дано целое число N.
Ответы (1)
С клавиатуры вводят последовательность чисел до тех пор пока не будет введено число 3. Требуется найти сумму введенных чисел
Ответы (1)
С клавиатуры вводятся числа до сих пор пока не введено число - 5. Найти количество чисел кратных 13 из введенных.
Ответы (1)