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

[Blackli]

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

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

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

Хи.. :p2:

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

[Blackli]

Спасибки в очередной раз =)) блин.. кое как нашла свою темку..
Вообще-то это нужно было не мне, а девченке знакомый.. она у меня спросила.. смогу ли я помочь.. ну я вспомнила ваш форум и сказала, что смогу %))
Сейчас понесу ей..
Кста.. прикольный стишок нашла только что.. помоему в темку =))))

В лесу родилась елочка..
program Елочка;
Begin
Лес.елочка.create();
While not Лес.елочка.dead do
Begin
лес.елочка.age := лес.елочка.age+1;
if зима or лето then
begin
лес.елочка.plain := true;
лес.елочка.color := cl_green;
end;
метель.filename:='D:\Music\NSYNC - Bye Bye Bye.mp3';
метель.open;
sleep(1000);
метель.play;
мороз.укутать(лес.елочка);
GetMessage(H, лес.елочка.handle, 0, 0);
if h.uint = wm_замерзла then
dead := true;
end;
лес.заяц.create;
лес.заяц.трусливый := true;
лес.заяц.color := cl_gray;
x := лес.елочка.left;
y := лес.елочка.top;
While x
Begin
лес.заяц.left := x;
inc(x);
лес.заяц.top := y + round( abs(sin(x*pi/180)*10) );
end;
Winexec('wolf3d.exe /evil',0);
лес.елочка.cuttoclipboard;
Праздник.pastefromclipboard;
Праздник.елочка.skin.loadfromfile('нарядная.jpg');
For i:=1 to SizeOf(Праздник.елочка.радость) do
Прадзник.Дети.Настроение + Праздник.елочка.радость;
End.


Да, и ещё.. а как вы так быстро отвечаете?))

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

Теперь я точно не забуду!))))))))))