задача

[Эльвира777]

вывести на экран все целые числа которые являются полными квадратами в диапазоне n1доn2 и количество выведенных чисел

[Ol'ga_new]

Правильно думаю: диапозон [1,10], ответ 4 и 9 всего 2 цифры?

[_-Re@l-_]

Ну тогда:

n:=0;
for i:=n1 to n2 do
begin
       x:=sqrt(i);
       if frac(x) = 0 then begin 
       write(i,' ');
       n:=n+1;
       end;
end;

Правильно думаю: диапозон [1,10], ответ 4 и 9 всего 2 цифры?

Во-первых, орфография: диапазон, а не диапозон.
Во-вторых, неправильно думаете: не 4 и 9, а 1,4,9, и всего 3 числа

[kogemrka]

Вообще, я бы сделал так (работает гораздо быстрее предложенного выше способа):

program roots;
var
   n1, n2, i: integer;
begin
     readln(n1, n2);

     {Получаем корень из n1 и округляем до целого}
     i := Trunc(Sqrt(n1));

     {Проверяем, является ли n1 правильным квадратом.}
     {Вообще, здесь можно было оставить  проверку на равенство дробной части нулю, как и в вышенаписанном варианте,}
     {но у меня есть привычка опасаться погрешности при работе с дробными числами.}
     {Поэтому я стараюсь сводить всё либо к целочисленным сравнениям, либо учитываю при сравнении погрешность.}

     {Итак, если n1 у нас полный квадрат, выводим его значение и увеличиваем i на единицу}
     if i * i = n1 then
        write(n1);
     inc(i);

     {До тех пор, пока квадрат i меньше или равен n2, выводим квадрат i и увеличиваем i на единицу}
     while sqr(i) <= n2 do
     begin
          write(' ', sqr(i));
          inc(i);
     end;

     readln;
end.

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