Question

Составить два вида программы увеличивающую заданное целое число х вдвое пока оно не превысит 1000

Answer 1

var
  a:real;
begin
  read(a);
  while a<1000 do a:=a*2;
  write(a)
end.


var x: integer;
begin
    read (x) ;
    repeat
       x+=x;
    until x > 1000;
    write (x) ;
end.