SHARE
TWEET

task 2

sphinx2001 Sep 22nd, 2019 88 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. var
  2. N: integer;
  3. begin
  4.   repeat
  5.     readln(N);
  6.     if (N>0) and (N<10) then
  7.     begin
  8.       N := N*N;
  9.       exit;
  10.     end
  11.     else    
  12.       writeln('vv dr chislo');
  13.    until 1 <> 1;
  14. end.
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!
 
Top