Найти число являются квадратами некоторого числа M, Снова я =)) Опции

[Blackli]

Эт снов я +))))
В прошилый раз мне здесь помогли.. =))))))
итак, суть моей проблемки..

Даны целые положительные числа a1, a2, a3, .. ,an. Найти среди них те, которые являются квадратами некоторого числа m

Apal просил не забывать ваш форум.. =)

Хи.. :p2:

Сообщение отредактировано: Blackli - 26.11.2004 20:48

[Altair]

А можно перебором?
тогда так:

Код

const
n=20;
var
m,i:word;
a:array[1..n] of word;

begin
{сначала вводим как-то массив, например так:}
for i:=1 to n dp readln(a[i]);
readln(m);
for i:=1 to n do if a[i]=sqr(m) then writeln('Чиcло ',a[i],' есть квадрат',m);
end.

Вот.

Apal просил не забывать ваш форум.. =)

теперь я прошу