[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
И вставляйте код туда.

[Dima170792]

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

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

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

[angvelem]

Эх, опоздал.