Delphi

[AugustWeismann 4]

Написать программу,определяющую все делители для числа А=243

Хэлпайте братюни))

оч нужно)

[Chovder 32]

Если подождешь чуть-чуть то сделаю , как раз надо тренероваться ))

Пока я делаю MySQL Manager

[AugustWeismann 4]

жду))

Скинь сразу код сюда)

долго ждать?)

[wollfens 119]

Что за "число А=243", можно поподробнее?) Сорь если туплю, может забыл просто)

[AugustWeismann 4]

Написать программу,определяющую все делители для числа А=243

Моё задание.

Вот думаю...

У меня есть А которое = числу 243 и нужно найти делители..

Вообще делители числа вот [243, [1, 3, 9, 27, 81, 243]]

Но мне нужна программа..

[LilDad 39]

var n,i:integer;

begin

readln(n);

for i:=1 to n do

if n mod i = 0 then write(i,' ');

readln;

end.

[localhost 715]

Написать программу,определяющую все делители для числа А=243

Моё задание.

Вот думаю...

У меня есть А которое = числу 243 и нужно найти делители..

Вообще делители числа вот [243, [1, 3, 9, 27, 81, 243]]

Но мне нужна программа..

все целые?

[localhost 715]

var n,i:integer;

begin

readln(n);

for i:=1 to n do

if n mod i = 0 then write(i,' ');

readln;

end.

паскаль напомнил...

[AugustWeismann 4]

procedure TForm1.Button1Click(Sender: TObject);

var n,i:integer;

begin

readln(n);

for i:=1 to n do

if n mod i = 0 then write(i,'243');

readln;

end;

end.

 

Так?

[AugustWeismann 4]

Бьёт ошибку.

Или мне в Edit Писать?

[AugustWeismann 4]

readln(n);

На это ругается(

[localhost 715]

readln(n);

На это ругается(

с синтаксисом наверно трабла

[wollfens 119]

procedure TForm1.Button1Click(Sender: TObject);
begin
a:=StrToInt(Edit1.Text);
for i:=1 to a do
begin
if a mod i = 0 then
Memo1.Lines.Add(IntToStr(i));
end;
end;

 

http://rghost.ru/45024967

[AugustWeismann 4]

Всем спс

procedure TForm1.Button1Click(Sender: TObject);

begin

a:=strtoint(edit1.text);

j:=243;

for i:=1 to j do

begin

if (j mod i)=0 then

begin

listbox1.Items.Add(inttostr(i));

end;

end;

 

end;

 

end.