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

Question

Информатика

Федул

3 марта, 19:36

Составить программу паскаль для вычисления нечётных чисел меньше 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-ти.