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

[Blackli]

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

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

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

Хи.. :p2:

Сообщение отредактировано: Blackli - 26.11.2004 16: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 просил не забывать ваш форум.. =)

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

[volvo]

Oleg_Z
Заметь, даны только a1, a2, a3, .. ,an...
А вдруг надо найти все числа, вообще являющиеся квадратами?

Blackli
Проясните ситуацию, пожалуйста ...

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

[FreeMan]

Код

var
a,m,n,i:word;
begin
write('a1,a2...an. enter n: ');
readln(n);
write('enter m: ');
readln(m);
for i:=1 to n do begin
write('enter a',i,': ');
readln(a);
if m*m=a then writeln('this is sqr(m)');
end;
readln;
end.

[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.


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

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

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

[Dark]

ЛОООООЛ =)

[Altair]

ЛООООЛ!
Blackli, заходи к нам!
Не забывай!
Не хочешь модерить форум "свободное общение"? (нужен жизнерадостый человек, ты подходишь)

[Blackli]

Не хочешь модерить форум "свободное общение"?

(^_^) Хочу! Хотя у меня свой форум есть.. )) Ну эт ладно..
Я подпишусь на ваш форум.. =))
Вобщем.. согласная Я)

P.S.: На не утвержденных правах модератора позволю себе скромно заметить.. что движок форума устарел)) у меня есть версия 2.0.2 http://www.hot.ee/regel2/ww-ib203.zip - Invision.Power.Board.2.0.3.PHP.NULL-WDYL =))

Сообщение отредактировано: Blackli - 28.11.2004 13:01

[APAL]

По поводу обновление - надо MJ упросить... когда свободен будет.

[Altair]

MJ:версия 2 ещё не вышла стабильная, о переходе не может быть и речи...

[Флогримм]

(^_^) Хочу! Хотя у меня свой форум есть.. )) Ну эт ладно..

а адрнсочек то, адресочек?