Question

Sa se elaboreze un algoritm prin instructiunea while sau repeat care va determina patratul a n numere citite de la tastatura.​

Answer 1

var n : integer;

m : real;

begin

 readln(n);

 repeat

   write('m=');readln(m);

   writeln(sqr(m));writeln;

   n:=n-1;

 until (n=0);

end.