Задача 3(0<n<10)

Marrsseell Sep 22nd, 2019 (edited) 85 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. var
  2.   n:integer;
  3. begin
  4.   writeln('введите число, которое больше нуля, но меьнше десяти');
  5.   readln(n);
  6.   while (n<0) or (n>10) do
  7.     begin
  8.       writeln('число неверное, введите еще');
  9.       readln(n);
  10.     end;
  11.   writeln(sqr(n))    
  12. 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