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

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

Нажмите на рекламу ниже и сразу увидите ответ

↓

Популярные вопросы:

svetakovalenko4

11.11.2021 21:14

Написать си++ вычислить сумму 1-1/2+1/4-1/...

arinas23

30.09.2020 16:43

В якому режимі роботи є можливість використовувати трансформацію Extrude...

gfff2

23.05.2020 20:27

Какие действия клавиш home, ctrl+стрелка вправо, ctrl+ home...

haritonukaleksa

03.09.2021 11:32

Обьяснмите для каких целей может использоваться мультимедиа в учебной деятельности...

Asala213

03.09.2021 11:32

Нарисуй симметричный рисунок заполни алгоритм рисования своего рисунка...

Alisascol

03.09.2021 11:32

Для какого значения числа z истинно выражение не (z 6) и не (z 4) варианты ответов 1)7; 2)8; 3)3; 4) 4...

АльпакаКайа

31.10.2022 22:17

Пользователь работал с каталогом d: .сначала он поднялся на один уровень вверх и спустился в каталог , затем спустился ещё на один уровень и оказался в каталоге новые. далее...

Vasilchenkodan

31.10.2022 22:17

Когда впервые был применен магистрально-модульный принцип устройства...

ulianadmytryk1

31.10.2022 22:17

Опишите процесс установки и загрузки операционной системы...

qwexxw

26.06.2020 14:05

Люди добрые и умные. написать программу, которая запрашивает ввод вещественного числа в переменную c, умножает это число на 2 и выводит результат на экран. проверить правильность...

Ответ:

Anastas1ya1

04.10.2020 09:21

Var n,i:integer;
begin
read(n);
i:=1;
repeat
begin
if i mod 3=0 then
writeln(i);
end;
i:=i+1;
until n<i
end.

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

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

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