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

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

Ответ:

osapkina

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

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

shaxrizat1

25.09.2020 15:38

Как перевести 3 в двоичную систему?...

RASIL111

02.01.2021 00:40

Технологія поєднання декількох роутерів ASUS у бесшовну мережу Wi-Fi називається 1.AiMesh2.AllMesh3.SmartMesh...

Дания29

02.04.2021 13:17

1. в бутылке, стакане, кувшине, и в банке находятся молоко, лимонад квас, и вода известно что вода и молоко не в бутылке сосуд с лимонадом стоят между кувшином...

natakonstantin

02.04.2021 13:17

1) определите значение переменной c после выполнения следующего фрагмента программы: a : = 100; b : = 30; a : = a – b*3; if a b then c : = a – b else c : = b –...

horsa

27.04.2020 23:10

Какие качества характера должен обладать сталевар...

Zenkinadasha

27.04.2020 23:10

Подскажите, сколько длилась вов в докладной форме....

adv00

27.04.2020 23:10

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

dariak98

27.04.2020 23:10

Найдите значение выражения: a^2-49b^2 . при a=√175; b=√175. 4a2 4a-28b...

Formica2017

27.04.2020 23:10

Расстояние между пунктами а и б равно 20 километров из пункта а вышел турист и скорости 4 километров час из пункта б одновременно выехал велосипедист со скоростью...

07спиннер07

27.04.2020 23:10

Решить! сравнить и поставить знаки больше меньше или равно. 3м 6дм? 36дм. 6см 7мм? 7см. 1дм8см? 18мм. 3м? 30дм. 6дм7см? 8дм. 84мм? 9см....

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

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