Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
Cat514
30.09.2022 06:18 •
Информатика
Написать программу которая среди введённых чисел ищет и считает числа кратные 5 ) ))
Показать ответ
Ответ:
manechka2407
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 оценок)
Популярные вопросы: Информатика
денис1139
22.05.2022 11:35
Составьте программу петя лёг в 22 часа, поставил будильник на 12 часов дня. сколько времени он будет спать?...
ХорошийВася
22.05.2022 11:35
Написать программу вычисления объема шара v с радиусом r по формуле v=(4/3)pr^3...
KsennyTAR
20.03.2021 06:33
Дни недели пронумерованы следующим образом: 1 — понедельник, 2 — вторник, …, 6 — суббота, 7 — воскресенье. дано целое число k, лежащее в диапазоне 1–365, и целое...
saltikov
20.03.2021 06:33
Решите пож эту дичь по информатике (аvb)^b^a...
sashatitsky
24.09.2022 13:59
Графически изобразить алгоритм работы машины тьюринга для решения следующих : 1.на ленте машины тьюринга содержится последовательность символов “+”. напишите программу...
Lololoshka98
29.02.2020 12:18
Британская энциклопедия содержит 96 тонов , средний объём =512 стр, на 1 страницу -2столбца по 72 строки , ширина =32 символов , сколько винчестеров объема =41...
vvvvsidorina
25.09.2020 08:32
Число 379 в десятой степени нужно перевести в двоичную восьмеричную на бумаге с полным решением...
manyna4
26.03.2021 10:53
Wars. кодом активации к сверхновой игре «underground wars» является натуральное число. на запрос сервер посылает код, но почему-то не один, а несколько. но какой...
Гогого11
13.01.2020 04:07
Переведите 157 из 10 системы счисления,в 2,в 8,в 16 ричную систему переведите 181 из 10 системы счисления,в 2,в 8,в 16 ричную систему переведите 123 из 10 системы...
aygerimorazhan
10.01.2023 05:43
Напишите самое большое трехзначное число в: а)восьмеричной б)пятеричной в)троичной г) двоичной запишите его эквивалент в десятичной системе счисления...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и 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.