Составить программу паскаль для вычисления нечётных чисел меньше 16 цикл репит

Question

Информатика

Антося

15 марта, 19:53

Составить программу паскаль для вычисления нечётных чисел меньше 16 цикл репит

+4

Ответы (1)

Знаешь ответ?

Лукаря · Answer 1

Var n:byte;

begin

n:=16;

repeat

dec (n);

if (n mod 2) = 0 then continue;

writeln (n);

until n=0;

end.

Выводит с новой строки все нечетные числа, которые меньше 16-ти.