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.

Answer 2

Конечно, вот пример кода на языке Pascal, который выполняет описанные вами действия:

pascalCopy code
program SubtractUntilZero;

var
  num: Integer;

begin
  Write('Введите число: ');
  Readln(num);

  while num > 0 do
  begin
    num := num - 1;
  end;

  WriteLn('Результат: ', num);
end.

Скопируйте этот код в среду разработки Pascal, и он позволит вам ввести число с клавиатуры и вычесть из него 1, пока оно не станет равным 0.