Дана последовательность n целых чисел, определить есть ли среди них точные квадраты и вывести их на экран.

[dmitriy20104]

Здравствуйте, программисты! Не могли бы вы помочь с решением задачи? Я пытался её написать, но получилась куча ошибок, ещё и комп выкинул без сохранения.
Задача:
Дана последовательность n целых чисел: a1,a2,..,an. Определить, есть ли среди них точные квадраты и вывести их на экран.
Кому не трудно, помогите. Надо без массивов, но с циклами.

[p51x]

в лоб с массивом и циклом:

for i := 0 to n-1 do
  if (a[i] mod Trunc(Sqrt(a[i])) = 0) then WriteLn(a[i]);

Вам осталось вместо фора сделать вайл и ввод/чтение числа вместо элемента масива.

[ARudik]

Сообщение от p51x

в лоб с массивом и циклом:

for i := 0 to n-1 do
  if (a[i] mod Trunc(Sqrt(a[i])) = 0) then WriteLn(a[i]);

Вам осталось вместо фора сделать вайл и ввод/чтение числа вместо элемента масива.

можно вместо массива использовать string

[Serge_Bliznykov]

Сообщение от ARudik

можно вместо массива использовать string

Мне лично непонятно... Поясните, пожалуйста, что Вы под этим имеете в виду?
Как строка здесь может помочь?

Тут можно вводить числа в цикле от 1 до N, тут же обрабатывать и тогда можно обойтись вообще без массива.

Сообщение от p51x

 if (a[i] mod Trunc(Sqrt(a[i])) = 0) then WriteLn(a[i]);

p51x, эту формулу Вы прямо здесь сочинили, на форуме и нигде не использовали, надеюсь?..
Дело в том, что это НЕПРАВИЛЬНОЕ решение. если обрезанный корень числа является делителем этого числа, это отнюдь не означает, что число является квадратом!
иллюстрирую ошибку примером:

var a : integer;
begin
  a := 8;
  if (a mod Trunc(Sqrt(a)) = 0) 
    then WriteLn('Точный квадрат')
    else WriteLn('Не подходит!');
  Readln;
end.

я бы рекомендовал не мудрить и проверить, что обрезанный корень, возведённый в квадрат равен данному число.
вот так примерно:

writeLn('Введите число чисел N: ');
readln(n);
for i:=1 to N do begin
   Write('Введите ',i,'-е число: ');
   Readln(a);
   if sqr(Trunc(Sqrt(a))) = a then WriteLn(a,' - точный квадрат. ');
end;

[dmitriy20104]

Спасибо, ребята, помогли!