Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Х
Химия
Д
Другие предметы
Н
Немецкий язык
Б
Беларуская мова
М
Музыка
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
У
Українська література
Р
Русский язык
Ф
Французский язык
П
Психология
О
Обществознание
А
Алгебра
М
МХК
Г
География
И
Информатика
П
Право
А
Английский язык
Г
Геометрия
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
lavrinenkoll
10.10.2022 04:49 •
Информатика
Вывести на экран все натуральные числа делящиеся на 3 без остатка
Показать ответ
Ответ:
nadjabolkina
01.10.2020 13:59
Var mas : array [1..100000] of longint;
i,n : longint;
begin
read(n);
for i:=1 to n do begin
read mas[i];
end.
for i:=1 to n do begin
if mas[i] mod 3=0 then write (mas[i],' ');
end;
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
nastyr17
09.04.2020 08:56
Даны два одномерных массива из 10 элементов. найти сумму всех элементов этих двух массивов....
ArinaMiji
16.05.2020 02:26
Определите тип файла : снегопад.jpg чудеса.doc осень.wav...
ОленкаБурковська
16.05.2020 02:26
1)известно, что ровно в двух пещерах из пяти есть клады. сколько битов нужно, чтобы закодировать информацию о расположении кладов? 2)в классе 32 ученика. сколько...
uzil1565
17.01.2020 22:36
1)сколько кбайтов составляют 2¹⁷ битов? 2)сколько мбайтов составляют 2²⁹ битов? 3)сколько мбайтов составляют 2¹⁵ кбайтов...
hopas1
15.01.2021 05:24
Действия с информацией это действия, связанные с...
GoldChery
21.10.2022 14:45
Решить на с#. кто сколько сможет. 1. алгоритм. свойства алгоритма. типы алгоритмов. графический записи алгоритма. 2. вводится последовательность из 10 произвольных...
darina2468
12.03.2022 04:34
Какие утверждения верны? 1 вычислительная структура неоднородных конечных последовательностей состоит из множества конечных последовательностей, элементами которых...
Valya1873
09.04.2021 21:18
Дана рекурсивная функция: function f(n: integer): integer; begin if n 100 then f: =n-10 else f: =f(f(n+11)) end; вычислите f(99)....
тдтщ
26.01.2021 11:46
Определите значение переменной s типа real после выполнения следующих операторов. s: =0; i: =1; repeat s: =s+1/i; i: =i-1 until i =1;...
11cat13
22.06.2022 19:22
Что будет напечатано? str: = abcdefgh ; insert( abc , str, 3); write(str);...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
i,n : longint;
begin
read(n);
for i:=1 to n do begin
read mas[i];
end.
for i:=1 to n do begin
if mas[i] mod 3=0 then write (mas[i],' ');
end;
end.