В прошлом году у меня было похожее задание - 15,8,6
Var n,i:integer;
begin
read(n);
i:=1;
repeat
begin
if i mod 3=0 then
writeln(i);
end;
i:=i+1;
until n<i
end.
Program wer;
var k, i, n: integer;
begin
writeln ('vvedi natur chislo');
readln (n);
if n>=1 then
begin
for i:=1 to n do
if n/i=n div i then k:=k+1;
writeln ('kol-vo delitelej=', k);
end else writeln ('eto chislo ne natur');
readln;
end.
Кол-во цифр вычисляет Счит.Кол-во в цифр