Дано число n. a) напечатать те натуральные числа, квадрат которых не превышает n. (программа Паскаль)

Question

Дано число n.
a) напечатать те натуральные числа, квадрат которых не превышает n.
b) найти первое натуральное число, квадрат которого больше n.

Answer 1

a) program z1;
uses crt;
var i, n: integer;
begin
read (n);
i:=1;
while sqr(i) < n do
  begin writeln (i);  i:=i+1;    end;
end.

b)  program z1;
uses crt;
var i,n:integer;
begin
read (n);
i:=1;
while sqr(i)<n do    i:=i+1;
  writeln(i);
end.