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

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

Показать ответ

Ответ:

AnToNoVa13

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

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

Папич3

12.04.2022 17:07

Мини сообщение на тему какими профессиями ? владеет компьютер...

moderator14

26.04.2023 03:38

Выпишите все целые числа из промежутка ...

Daniil2305

29.09.2020 17:35

17 в шестнадцатеричной перевести в восмеричную...

dogparrker

25.09.2021 07:52

С какой целью и на какие документы устанавливается номера страниц, калантитул, сниски...

Tyan789

12.08.2022 13:14

Процедура форматирования текста предусматривает...

ппсомо3657

05.04.2022 23:40

Написать программу на python запрашивается число а, если оно больше 3, то в=а*4 , если равно 3, то в=а**2 иначе в=а*10...

иван1208

19.11.2021 22:18

1*2+2*3*4+3*4*4*5*6+n(n+*n) найти последавательность...

karandash72772

19.11.2021 22:18

Нужен маленький доклад 7от5 до 8 предлож по программе microsoft office 2016...

polinasparrow

29.09.2021 22:21

1*2+2*3*4+3*4*4*5*6+n(n+*n) найти последавательность...

sadovskaya02

16.12.2022 01:36

Анализ1 какая польза и вред от компьютерных игр? сравните, исполь-зуя диаграмму венна (рис. 69).различияразличиясходствопольза откомпьютерных игрвред откомпьютерных игррис....

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

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