SHARE
TWEET

Untitled

oprepeti Oct 12th, 2019 115 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. Program F131;
  2.  
  3. {1-10 közötti szám, tesztelés, négyzet.}
  4.  
  5. Uses crt;
  6.  
  7.  
  8. Var
  9. i,k:integer;
  10.  
  11. Begin
  12.  
  13. ClrScr;
  14.         Repeat
  15.    Write('Adj egy szamot, megmondom a negyzetet!');
  16.    Readln(i);
  17.  Until (i>1) and (i<10);
  18.  Begin
  19. k:=i*i;
  20. end;
  21. Writeln('A szam negyzete:',k );
  22.  
  23.  
  24.  
  25. Readln;
  26. 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
 
Top