Question

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

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-ти.