Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
facss
10.05.2023 13:01 •
Информатика
Напишите программу которая в последовательности натуральных чисел определяет количество чисел меньше 500 и кратных 3. програма получает на вход количетво чисел, а затем сами числа. введеные числа не привышают 30000
Показать ответ
Ответ:
мозг302
25.08.2020 10:52
//Pascal
var a,i,n,k:integer;
begin
k:=0;
readln(n);
for i:=1 to n do begin
readln(a);
if (a mod 3 = 0) and (a<500) then
k:=k+1;
end;
writeln(k);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
Xcalibur
12.04.2020 11:40
Качество воспроизведения закодированного звука в основном зависит 1) -от диапазона напряжения, в котором функционирует ацп; 2) -от частоты дискретизации и ее разрешения; 3)...
сонка123456789
12.04.2020 11:40
Язык можно условно отнести: 1) -к одному из искусственных языков 2) -к алгоритмическому языку программирования си; 3) -к естественным языкам; 4) -к языку логического программирования;...
ivandawidov
12.04.2020 11:40
Валфавите некоторого языка всего два знака-буквы (“0” и “1”). каждое слово этого языка состоит обязательно из семи букв. какое максимальное число слов возможно в этом языке:...
Юлья0000000
12.04.2020 11:40
Под алфавитом понимают: 1) -любую конечную последовательность символов; 2) - определенным образом конечный набор знаков, расположенных в строго определенной последовательности;...
ddaaww
18.07.2022 02:59
Путешественник написал на листке бумаги число 86 и предложил ане : не записывая ничего увеличь это число на 12 и покажи мне ответ . аня мгновенно справилась с . что она сделала?...
Янго5002
05.09.2020 04:54
Дано логическое выражение, зависящее от 7 логических переменных: x1 + ¬x2 + x3 + ¬x4 + ¬x5 + ¬x6 + ¬x7 сколько существует различных наборов значений переменных, при которых...
Sофушка
03.02.2023 16:16
Ккакому виду программного обеспечения относиться текставой процессор? а. системное по в. системы программирования с. программы d. приложения...
mehriban2004
03.02.2023 16:16
Установи закономрiнiсть,упиши числа яких не вистачае : 7,3,1,2,4,2,3 ; 2,7,5,3,4,11; 15,3,5,6,4; 8,5,4,7...
slothy
27.06.2022 07:06
Придумать жизненную ситуацию, когда можно выразиться крылатым выражение авгиевы конюшни ?...
guldana14
27.06.2022 07:06
Выбери точку 480, 115, 555, 160, 220 в котором может допрыгнуть исполнитель кузнечик из начального положения в точке 0, если он умеет выполнять только команды: вперед 15- прыгает...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
var a,i,n,k:integer;
begin
k:=0;
readln(n);
for i:=1 to n do begin
readln(a);
if (a mod 3 = 0) and (a<500) then
k:=k+1;
end;
writeln(k);
end.