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

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

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

↓

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

serepromskaya

08.03.2021 20:32

Создание программы с использованием элементов диалога,усл.оператора,ввода вывода и выбора варианта.при создания проверяющего знания студентов по алгоритм.вопросов...

Scucorif

08.03.2021 20:32

Составить алгоритм и программу подсчитывающую количество больших чем соседних элементов массива j из 16 чисел. значение элементов массива рассчитать по формуле coss/s,...

densto0

08.03.2021 20:32

Создать блок схему и программу. p=1*(1+2)*(1-13)...

suxowaalisa

08.03.2021 20:32

Перевести из 10ой сс в 2ую сс: a) 164(10); b) 255(10); c) 105(10); d) 99(10); e) 205(10); f) 358(10). с пошаговым...

dmitrijezhov20

08.03.2021 20:32

Втаблице запросы к поисковому серверу. для каждого запроса указан его код – соответствующая буква от а до г. расположите коды запросов слева направо в порядке возрастания...

mariyalesnyak

30.08.2021 18:43

Выберите, что выведет на экран данный фрагмент программы.x:=150;n:=x div 10;x:=x-n;if (x mod 5 = 0) and (n mod 5 0) then writeln (x) else writeln(n);...

ivantitov2002

11.06.2020 18:08

Блок схему постройте, а я дам...

Qwertyuiop11111112

21.11.2021 07:52

Нужно полное решение! Var k, score: integer; A: array[1..9] of integer; Begin A[1]:=6;A[2]:=11; A[3]:=7;A[4]:=12; A[5]:=13;A[6]:=5; A[7]:=9;A[8]:=3; A[9]:=4; score...

cifirka5

09.01.2020 12:30

Исполнитель Черепаха выполняет следующий алгоритм: Повтори 12 [Вперед 30 Направо 60] Какая фигура появится на экране?...

Bobskromnaysh12

12.05.2020 01:11

512 бит-. 1073741824 байт- мбайт. 1024кбайт-это..байт. №4 сколько информации может уместиться на перечисленных носителях? дискета3, cd- dvd-диск, жёсткий диск компьютера(винчестер)....

Ответ:

Pwdrddiwkekfiwldkeie

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 Оформи подписку