Войти Регистрация Спроси ai-bota

От 1 до n вывести все числа, которые кратны 3

Ответ:

Hello111103

04.10.2020 09:20

Var a:integer;
begin
for a:=n downto 1 do begin
if (a mod 3 = 0)
then writeln(a);
end;
end.

0,0(0 оценок)

Популярные вопросы: Информатика

помогите1165

27.10.2022 21:08

ДАЙ Постройте схемы и таблицы истинности работа которых описывается логическими формулами а) F( A,B,C)= (A и B) или (B и C)б) F(X, Y)= X или Y) и не Y...

Чиангл

13.03.2023 13:55

I. Переведите данные числа из 10-ич.с.с. 1. 12310→Х4 2. 2910→Х2 3. 53910→Х8 4. 121110→Х12 5. 36710→Х5 6. 132310→Х13 7. 278510→Х16...

artemivanyk200

22.03.2023 09:24

Даны 3 числа a b c найти минимальное, максимальное и среднее. если if c больше макс , тогда макс будет c. решать через else....

Мама1мама2

17.10.2021 10:08

Сколько раз будет выполнено повторение определённых действий в программе Dcratch?...

missliss05

12.07.2021 23:22

5. Объясните понятие «Авторское право»....

vixoreva98

09.02.2020 18:13

Составь слова используя буквы данные в таблицетам надо по циврам и буквам поиогите...

nataalferova8

17.05.2023 09:54

Какова функция заголовка в документе? 2. Для чего используются объекты WordArt? 3. Как разместить объекты WordArt в документе? 4. Как вставить рамку в документ? 5. Какие...

aannaa2

10.01.2020 16:42

Даны два русских слова, закодированных так, как это делается в общераспространенной кодировке Юникод: сова: 2071 - 2068 - 2056 - : 2023-2054-2056-2075-2054-2078как расшифровывается...

nastya2737

15.05.2023 08:31

ОЧЕНЬ В массиве 10 элементов заполненные случайными числами. Поменять местами соседние элементы массива....

Zloo6024600

08.09.2021 20:41

1. Установите взаимно-однозначное соответствие междуслужебными словами (первый столбец) и их назначением вязыке PASCAL (второй столбец). Запишите (в тетради) номера«правильных»...

Полный доступ

Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку