1. Информатика
  2. Напишите программу,

Напишите программу, которая получает поток (последовательность) чисел
(поочередный ввод с клавиатуры). Признаком окончания потока чисел является ввод

числа 0. В этой последовательности определить количество чисел, которые кратны 3
и их запись оканчивается на 6.
ОЧЕНЬ Б

Апофис Апофис    3   26.05.2020 10:27    0

Ответы
Noksiwin Noksiwin  15.10.2020 09:00
var i, n: integer; begin i := 1; while i <> 0 do begin read(i); if (i mod 3 = 0) and (i mod 10 = 6) then n := n + 1; end; write(n); end.

Пример работы:


Напишите программу, которая получает поток (последовательность) чисел (поочередный ввод с клавиатуры
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
thecrazynon1098 thecrazynon1098  27.04.2020 08:26
Каким образом происходит эффект «анимации»? подумай и ответь своими словами.​...
alekseyanci alekseyanci  27.04.2020 08:26
Кузнечик может выполнять команды ВПЕРЕД 5 и НАЗАД 3. Начальное положение на оси в точке −5. Составьте алгоритм, который возвращает Кузнечика в начальную точку 0....
MikiMio MikiMio  27.04.2020 08:26
Что делать? Комп не хочет выключается вообще на команды не реагирует.. ​...
footbal32 footbal32  03.06.2019 12:50
Звук и видео в интернете мне нужен реферат на эту тему желательно побольше информации примерно на 3-4 листа а4...
lecsika lecsika  03.06.2019 12:50
Определите шаблон, позволяющий правильно объединить все файлы, имя которых начинается на буквосочетание «кс» и имеют расширение из трех символов, в одну группу. а) кс*.* б) ?...
ZhEnYa9911 ZhEnYa9911  03.06.2019 12:50
Глобус является документом? является ли старинный ларчик для хранения документов документом?...
EdgyHuman EdgyHuman  03.06.2019 12:50
Использовать подпрограммы (ввода, вывода, обрабатывающей части). дан массив целых чисел а[m,n], где m,n =10. в каждой строке массива выбрать минимальный и найти их произведение....
daniilmosl daniilmosl  03.06.2019 11:17
Максимальная скорость чтения имеет магнитная лентаварианты: 1)12мб/с2)160мб/с3)8мб/с4)56мб/с​...
ника2092 ника2092  15.09.2020 09:55
Запишите угрозы для целостности, конфиденциальности и доступности информации в таблице.ВидыУгрозы1Угрозы конфиденциальностиинформации2Угрозы целостности информации3Угрозы доступности...
fffffffhhhhhh fffffffhhhhhh  15.09.2020 10:47
1)100101+101= 2)101101+111= 3)11001,1+11,01= №2 1)100001*10010= 2)110001*1011= 3)101*101= №3 1)1000101-110= 2)1101101-110= 3)110101-101= №4 1)10000:10= 2)101101:101= 3)100001:11=...

Популярные вопросы