Question

Ввести число с клавиатуры. Вычитать от него 1, пока оно не станет равным 0. В паскале.

Очень срочно нужно

Answer 1

Ответ:

pascal

Объяснение:

var

 x: integer;

begin

 

 writeln('Введите число: ');

 readln(x);

 while (x > -1) do  

 begin

   writeln(x);

   x := x - 1;

 end;

 

end.