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

n = int(input("Число: "))

while n>0:

   n-=1

Объяснение:

евр пыарв куоак оарь  ееврпосбр колелркупроь опавры

Объяснение:

var

  n,i,a: integer;

begin

  readln(n);

  for i: =1 to n do

  begin

  read(a);

  write(abs(a),' ');

end;

end.

режим разметки страницы,режим структуры,режим чтения.режим веб документа-