Эт снов я +))))
В прошилый раз мне здесь помогли.. =))))))
итак, суть моей проблемки..
Даны целые положительные числа a1, a2, a3, .. ,an. Найти среди них те, которые являются квадратами некоторого числа m
Apal просил не забывать ваш форум.. =)
Хи.. :p2:
Полная версия: Найти число являются квадратами некоторого числа M
А можно перебором?
тогда так:
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.
Вот.
теперь я прошу
тогда так:
Код
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 просил не забывать ваш форум.. =)
теперь я прошу
Oleg_Z
Заметь, даны только a1, a2, a3, .. ,an...
А вдруг надо найти все числа, вообще являющиеся квадратами?
Blackli
Проясните ситуацию, пожалуйста ...
Заметь, даны только a1, a2, a3, .. ,an...
А вдруг надо найти все числа, вообще являющиеся квадратами?
Blackli
Проясните ситуацию, пожалуйста ...
Код
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.
Спасибки в очередной раз =)) блин.. кое как нашла свою темку..
Вообще-то это нужно было не мне, а девченке знакомый.. она у меня спросила.. смогу ли я помочь.. ну я вспомнила ваш форум и сказала, что смогу %))
Сейчас понесу ей..
Кста.. прикольный стишок нашла только что.. помоему в темку =))))
В лесу родилась елочка..
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.
Да, и ещё.. а как вы так быстро отвечаете?))
Теперь я точно не забуду!))))))))))
Вообще-то это нужно было не мне, а девченке знакомый.. она у меня спросила.. смогу ли я помочь.. ну я вспомнила ваш форум и сказала, что смогу %))
Сейчас понесу ей..
Кста.. прикольный стишок нашла только что.. помоему в темку =))))
В лесу родилась елочка..
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.
Да, и ещё.. а как вы так быстро отвечаете?))
Цитата
теперь я прошу
Теперь я точно не забуду!))))))))))
ЛОООООЛ =)
ЛООООЛ!
Blackli, заходи к нам!
Не забывай!
Не хочешь модерить форум "свободное общение"? (нужен жизнерадостый человек, ты подходишь)
Blackli, заходи к нам!
Не забывай!
Не хочешь модерить форум "свободное общение"? (нужен жизнерадостый человек, ты подходишь)
Цитата
(^_^) Хочу! Хотя у меня свой форум есть.. )) Ну эт ладно..
Я подпишусь на ваш форум.. =))
Вобщем.. согласная Я)
P.S.: На не утвержденных правах модератора позволю себе скромно заметить.. что движок форума устарел)) у меня есть версия
По поводу обновление - надо MJ упросить... когда свободен будет.
Цитата
MJ:версия 2 ещё не вышла стабильная, о переходе не может быть и речи...
Цитата
(^_^) Хочу! Хотя у меня свой форум есть.. )) Ну эт ладно..
а адрнсочек то, адресочек?
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.