[Dima170792]

Доброго времени суток ув.форумчане ! нужна ваша помощь в решении задачи по информатике.язык программирования Delphi7.Задача:Вывести список трехзначных чисел,которые делятся на произведение своих цифр в 5 колонках.Поставить защиту от деления на 0!По возможности выложите полный код программы!Заранее благодарен.

[Gravitas]

в 5 колонках

По какому критерию их распасовывать нужно?

[Gravitas]

program Schitalovo;

{$APPTYPE CONSOLE}

uses
SysUtils;

var
i,z,c:integer;
x:string;
begin
for i:=100 to 999 do begin
x:=IntToStr(i);
z:=StrToInt(x[1]);
for C:=2 to length(x) do
z:=z*StrToInt(x[c]);
if z<>0 then begin
if (StrToInt(x) mod z) = 0 then
WriteLn(x);
end;
end;
ReadLn;
end.

Вроде бы работает как надо.
Вставил подсчитывание. Чисел получилось 20. Т.е. по 4 числа в столбце.

[Dima170792]

Спасибо за код!Вы не моглибы помочь-я непонимаю как єто организовать в Delphi 7!

[Gravitas]

Сообщение от Dima170792

Спасибо за код!Вы не моглибы помочь-я непонимаю как єто организовать в Delphi 7!

Это оно и есть.
File => New => Other => Console Application
И вставляйте код туда.

[angvelem]

Эх, опоздал.

[Dima170792]

Сообщение от Gravitas.

Это оно и есть.
File => New => Other => Console Application
И вставляйте код туда.

ПРОБЛЕМА В ТОМ ЧТО МНЕ НУЖНО НЕ КОНСОЛЬНОЕ А ОКОННОЕ ПРИЛОЖЕНИЕ!ЕСЛИ ВОЗМОЖНО-ПОМОГИТЕ ОРГАНИЗОВАТЬ!

[lmikle]

1. Не надо капсить.
2. Выводи в Memo в окне.

[Gravitas]

На форму кинь Memo и кнопку. В обработчике клика по кнопке (Button1Click):

Код:

var
 i,z,c:integer;
 x:string;
 begin
 for i:=100 to 999 do begin
 x:=IntToStr(i);
 z:=StrToInt(x[1]);
 for C:=2 to length(x) do
 z:=z*StrToInt(x[c]);
 if z<>0 then begin
 if (StrToInt(x) mod z) = 0 then
 Memo1.Lines.Add(x);
 end;
 end;
end;

[ART]

Мой код получше вроде )

Код:

procedure Solve;
var
 i, j: integer;
begin
 for i := 100 to 999 do begin
  j := (i div 100) * ((i div 10) mod 10) * (i mod 10);
  if j <> 0 then
   if i mod j = 0 then begin
    //тут добавляем как надо
  end;
 end;
end;

[Gravitas]

Ему бы и в том еще разобраться(

[Dima170792]

Теперь все!Спасибо Gravitas.!