Pascal выведите все числа на отрезке от a до b, являющиеся полными квадратами. примеры: входные данные 1 5 выходные данные 1 4

Var a,b,i: integer;         x: real; begin readln(a); readln(b); if a< 0 then a: =1; for i: =a to b do   begin   x: =sqrt(i);   if frac(x)=0 then write(i,' ');   end; end.

начну с плюсов и минусов.

плюсы

одним из главных плюсов является компактность, ведь в одном устройстве могут хранится тысячи книг. кроме того, устройство обычно меньше и легче бумажной книги. так же в книжных магазинах книги могут стоить 500 рублей, 2000 руб и выше и цены разные, а в интернет-магазинах для электронных книг книги могут стоить в несколько раз дешевле.

минусы

как любые электронные приборы, устройства для чтения электронных книг гораздо чувствительнее к повреждениям , нежели обычные книги. многие издатели официально не публикуют электронные версии бумажных книг, но стоит понимать, что многие читатели сами загружают книги в общий доступ. устройства для чтения электронных книг требуют периодической зарядки (батареи).

вообщем плюсов и минусов больше, но они не относятся к каждой электронной книги,а эти есть у всех.

const n=10; m=8;

var a: array[1..n,1..m] of integer;

b: array[1..n] of integer;

i, j: integer;

begin

writeln('исходная матрица: ');

for i: =1 to n do

begin

for j: =1 to m do

  begin

  a[i,j]: =random(20)-5;

  write(a[i,j]: 4);

  end;

writeln;

end;

for i: =1 to n do

begin

j: =1;

while (j< =m)and(a[i,j]> 0) do j: =j+1;

b[i]: =j-1;

end;

writeln('полученный массив: ');

for i: =1 to n do write(b[i]: 3);

writeln;

end.

пример:

исходная матрица:

  14   13   1   9   9   8   -5   10

  13   -4   -2   7   1   5   10   -5

  3   2   6   14   12   5   5   11

  6   -2   8   3   3   -1   -4   8

  9   0   -1   -3   2   6   12   8

  -1   -2   0   3   4   -3   10   5

  8   11   -3   2   12   1   8   7

  13   7   13   11   8   -3   6   1

  11   6   1   -1   14   7   -2   5

  0   13   -3   4   14   2   2   3

полученный массив:

  6   1   8   1   1   0   2   5   3   0