Jater

Kristina_until

Dec 6th, 2012
96
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. {b)Дано натуральное число n.
  2. Получить наименьшее число вида 2r, превосходящее n.}
  3.  
  4. var
  5.     n,r,s:integer;
  6. begin
  7.     write('Vvedi n: ');
  8.     readln(n);
  9.     r:=1;
  10.     repeat
  11.         r:=r+1;
  12.     until(2*r>n);
  13.     writeln('2*',r,'=',2*r);
  14.     read;
  15. End.
RAW Paste Data