Задать вопрос Регистрация
Помочь другим

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

Ответы 1

  • Var a:integer;beginfor a:=n downto 1 do beginif (a mod 3 = 0)then writeln(a);end;end.

  • Добавить свой ответ

Еще вопросы

Топ пользователей

Войти через Google

 или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years