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

Question

Информатика

Петронилла

26 марта, 21:36

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

+5

Ответы (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-ти.