Напишите (паскаль)программу которая выводит ** экран числа 20 40 80 160 320

Question

Напишите (паскаль)программу которая выводит на экран числа 20 40 80 160 320

Comments

помогите

Answer 1

Var
  n:integer;
begin
  n:=20;
  while n<=320 do begin<br>    Write(n,' ');
    n:=2*n
    end
end.

Результат работы
20 40 80 160 320