ПОМОГИТЕ С ИКТ!!! ПАСКАЛЬ! ДАЮ 23 балла! _____________________________ Задача: Вводится последов??тельность чисел, которая оканчивается 0. Определите количество и сумму чисел, которые кратны B. Если таких чисел нет, то сообщить об этом. (решить нужно с помощью цикла while)
?тельность чисел, которая оканчивается 0. Определите количество и сумму чисел, которые кратны B. Если таких чисел нет, то сообщить об этом. (решить нужно с помощью цикла while)
Ответы:
11-10-2018 23:00
//Pascal//вариант с циклом whilevar a,b, n: integer;begin n:=0; readln(b); readln(a); while a<>0 do begin if a mod b = 0 then n:=n+1; readln(a); end; writeln(n);end.
Также наши пользователи интересуются:
На какие вопросы отвечают сушествительныееОй что же теперь будет!!! — испуганно воскликнули гласные _____________________Жирный и злой
⭐⭐⭐⭐⭐ Лучший ответ на вопрос «ПОМОГИТЕ С ИКТ!!! ПАСКАЛЬ! ДАЮ 23 балла! _____________________________ Задача: Вводится последов?» от пользователя Лиза Щупенко в разделе Информатика. Задавайте вопросы и делитесь своими знаниями.
Открой этот вопрос на телефоне - включи камеру и наведи на QR-код!