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

Тимофей
Oct 24, 2020
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
Смежные вопросы: