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

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

Ответ:

школьник811

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 оценок)

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

sevliekaterina2

20.11.2021 22:05

На самсунге джей 1 в углу левом красный восклицательный знак, НАПИСАНО КАК ВСЕГДА ПРИ ВКЛЮЧЕНИИ САМСУНГ ГЕЛЕКСИ ДЖЕЙ1, И ВНИЗУ ПОВЕРЕД БАЙ АНДРОИД, сам телефон так уже 30...

asd000fgh000

04.09.2020 04:00

с информатикой с информатикой >...

19zm19zm

05.02.2020 22:05

Есть две команды: 1) умножить на 3 2) прибавить 2 нужно превратить число 3 в 65 за 5 шагов, используя две эти команды...

katasmajl

27.07.2020 18:20

Сколько байт составит сообщение из 256 символов 16-ти символьного алфавита?...

magoomamedzadeh

15.08.2021 01:16

:факториал числа представляет собой произведение всех натуральных чисел от 1 до этого числа включительно. например, факториал числа 7 выглядит так: 1 * 2 * 3 * 4 * 5 * 6 *...

ТаНюша2451

15.08.2021 01:16

Сообщение было первоначально записано с 16-ти символьного алфавита. его перекодировали и записали с 8-ми символьного алфавита. при этом объем сообщения уменьшился на 100 бит....

kristiplay

15.08.2021 01:16

Сколько символов содержит сообщение, записанное с 256-ти символьного алфавита, если его объем составил 1\256 часть мегабайта?...

лошарикуни

10.02.2021 11:47

Уисполнителя вычислитель две команды, которым присвоены номера: 1. прибавь один 2. возведи в квадрат первая из них увеличивает число на экране на 1, вторая – возводит его...

Yarina0311

10.05.2021 06:01

Дан список A, состоящий из N элементов. Не используя функции max, min, найдите максимальный и минимальный элементы списка. Входные данные: 10 12 36 8 56 78 13 34 85 76 10...

kstarikova1

27.01.2023 08:49

Решить уравнение 25x-50+44x-88 при x=2 решить в виде уравнения. заранее ....

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

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