Question

Запишите команду цикла с предисловием ( условие : x не равно 0, тело цикла : x уменьшить на 1)

Answer 1

while x <> 0 do
x:=x-1;