Листинг программы
program z29;
{ Вывести список трёхзначных чисел ,делящихся
без остатка на произведение своих цифр в 5 колонок
Поставить защиту от деления на ноль}
uses crt;
var i,j,k,m,j1:longint;
i1:string;er:integer;label mmm;
begin
clrscr;
textcolor(11);i:=10;
while i<=999 do
begin
m:=1;str(i,i1);
for j:=1 to 3 do
begin
val(i1[j],j1,er);m:=m*j1;
end;
if m=0 then goto mmm;
if i mod m=0 then
begin
inc(k);if k=6 then begin writeln('');k:=1; end;
write(i,' ');
end;mmm: inc(i);
end;
readln;
end.