Регистрация
Войти
Стать экспертом Правила
Информатика

(Pascal) Вывести все нечётные числа кратные пяти в диапазоне от 10 до 100.Обязательно использовать repeat и until.

ОТВЕТЫ



begin
  var n:=10;
  repeat
    if n.IsOdd and (n mod 5=0) then Print(n);
    n+=1
  until n>100
end.


15 25 35 45 55 65 75 85 95
232
Контакты
Реклама на сайте
Спрошу
О проекте
Новым пользователям
Новым экспертам