Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
katyunyagolubmailru
18.05.2023 20:18 •
Информатика
Pascal, цикл для, составить программу. 4)ввести 12 чисел. определить сколько чисел кратно 5.
Показать ответ
Ответ:
NikaSempay
04.10.2020 23:44
Program up1;
var e,w,q:integer;
begin
for i:=1 to 12 do
begin
writeln('введите число');
read(q);
w:=q mod 5;
if w=0 then e:=e+1;
end;
writeln(e,' чисел кратных 5');
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
Nikita310101
13.01.2021 11:15
1. написать программу для определения количества двузначных чисел в диапазоне от а до b, которые при делении на 6 остаток 2. 2. найти сумму двузначных чисел в диапазоне от а до...
Vivy12
13.01.2021 11:15
Дано двузначное число(n). найти сумму цифр двузначного числа. сделать в паскале)...
kira10451
13.01.2021 11:15
Вчем состоит различие излучаемого и отражаемого света?...
helpmepls1234566
23.05.2022 01:06
Как переписать программу, чтобы она заработала на pascal abc? ...
Rzaevat
16.12.2022 13:25
Иныорматика ! в первом столбице отметь те приёма иныорматики которые участвуют в восприяьии предмета.во втором столбице ответь то,что является сновным....
Deyzer777
29.05.2023 16:21
Крошечное островное государство тувалу с населением около 10000 человек успешно продает на международном а)национальный домен верхнего уровня б)электронные переводчики в)материнские...
tdemon
29.05.2023 16:21
Легкая на паскале (я тупая) тема: цикличные алгоритмы. даны n чисел,найти кол-во кратных 2 и 5; найти кол-во кратных 3,но чтобы оно не было четным; все 2 условия в одной программе...
КрохаДи
04.06.2020 06:15
1. в ячейку c13 ввели формулу =c12/$b$4. затем эту формулу скопировали в ячейку f16. какая формула содержится в ячейке f16?...
Maksim777900
04.06.2020 06:15
Что относится к алгоритмам поиска информации: а)последовательный перебор б)блочно-последовательный в)совокупность данных,среди которых осуществляется поиск г)половинное деление...
vadimmikrukov6p07zb1
04.06.2020 06:15
Виды обработки информации; а)получение новой информации; б)хранение информации; в)структурирование данных; г)поиск данных; д)передача данных; е)изменение формы представления информации...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
var e,w,q:integer;
begin
for i:=1 to 12 do
begin
writeln('введите число');
read(q);
w:=q mod 5;
if w=0 then e:=e+1;
end;
writeln(e,' чисел кратных 5');
end.