Jater

Fedya_shift_of_numbers

Nov 27th, 2012
94
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. var x,y:integer;
  2. begin
  3.     write('Vvedi chislo: ');
  4.     repeat
  5.         readLN(x);
  6.         if (x<100)or(x>999)
  7.             write('chislo vyhodit za diapazon [100;999]! Vvedite korrectnoe chislo: ');
  8.     until (x>99)and(x<1000);
  9.     y= (x mod 10)*100;
  10.     y= (x div 10) + y;
  11.     write(y);
  12.     read();
  13. End.
RAW Paste Data