Войти
Регистрация
Спроси ai-bota
В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
Показать больше
Показать меньше
borisevichdash
27.01.2022 21:58 •
Информатика
Написать программу которая среди введённых чисел ищет и считает числа кратные 5 ) ))
Показать ответ
Ответ:
jennie082017
23.09.2020 13:41
Var i,n,a,b,s:integer;
begin
writeln('Введите количество чисел в последовательности');
readln(n);
for i:=1 to n do begin
writeln('Введите число номер ', i); read(b);
if b mod 5 = 0 then
s:=s+1;
end;
writeln('Чисел кратных 5:',s);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
daniillopunov16
20.02.2020 02:31
:* составить программу, которая для данной величины а, не используя никаких функций и никаких операций, кроме умножения, вычисляет а15 (а в пятнадцатой степени) за пять операций...
BNN11
06.11.2020 07:37
Решите 2 в паскаль. ! 1)дано количество секунд с начала суток. сколько полных часов с начала суток, сколько минут с начала очередного часа и сколько секунд с начала очередной...
adam83
06.11.2020 07:37
Что из перечисленного можно отнести к функциям памяти компьютера: (3 правильных) 1.обработка данных по заданной программе 2.запоминание информации 3.прием информации с других...
annakivilyova
23.07.2022 05:15
Информационный объем сообщения длинной в 120 символов составляет 75 байт.определите,из какого максимального количества символов может состоять алфавит языка,на котором написано...
влалллла
23.07.2022 05:15
1. основным носителем информации в социуме на современном этапе является: а) бумага б) кино и фотопленка в) магнитная лента г) дискета, жесткий диск д) лазерный компакт-диск...
Rin1111
07.10.2021 06:28
Вдетском саду было всего 100 малышей, из них 43 девочки и 35 мальчиков. в какой системе счиления посчитаны дети.?...
домашкидофига
05.03.2022 15:45
1. при угадывании целого числа в некотором диапазоне было получено 8 бит информации. сколько чисел содержит этот диапазон? 2. вы подошли к светофору, когда горел красный свет....
aika113
15.05.2022 06:21
Как в паскале abc сделать таблицу умножения четных чисел...
aigerka12345678910
15.05.2022 06:21
Смайлик купив дві коробки з компютерними пристроями. в одній коробці -4 миші, в іншій - 5 трекболів. відомо що 3 миші важчі ніж 4 трекболи. яка коробка легша...
ТаняСажнева486
25.12.2021 20:11
Текст занимает 1,25 мбайт памяти компьютера.сколько символов содержит этот текст ?...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
begin
writeln('Введите количество чисел в последовательности');
readln(n);
for i:=1 to n do begin
writeln('Введите число номер ', i); read(b);
if b mod 5 = 0 then
s:=s+1;
end;
writeln('Чисел кратных 5:',s);
end.