программа по Div и Mod

[Renge]

PHP код:

Program dm;
Uses CRT;
Var
  i,a,c,b,g,k,v : word;
BEGIN
  Repeat
    ClrScr;
    k:=0;
    Writeln ('Вывести на экран все трехзначные числа, которые в 13 раз больше суммы своих');
    Writeln ('цифр  и их количество.');
    Writeln ('');
    For i:=100 To 999 Do
    Begin
    a:=i div 100;
    g:=i mod 100;
    b:=g div 10;
    c:=g mod 10;
    If i=13*(a+b+c) then k:=k+1;
    End;
    If i=13*(a+b+c) then Begin
                writeLn ('Это числа ', i);
                write ('Этих чисел ', k);
                End
    else writeln ('Таких чисел нет.');

    Until ReadKey=#27
END. 


Вроде все сделала, а он пишет что чисел нет, хотя вообще-то это 117, 156 и т.д.. Подскажите, где ошибка

[alex_fcsm]

for i:=1 to 9 do
 for j:=0 to 9 do
  for k:=0 to 9 do
   if ((i*100+j*10+k) mod (i+j+k)=0) and ((i*100+j*10+k) div (i+j+k)=13) then writeln(i*100+j*10+k);

У вас в цикле begin end немного неправильно располагался

Ваш вариант

Program dm;
Uses CRT;
Var
  i,a,c,b,g,k,v : word;
BEGIN
  Repeat
    ClrScr;
    k:=0;
    For i:=100 To 999 Do
    Begin
    a:=i div 100;
    g:=i mod 100;
    b:=g div 10;
    c:=g mod 10;
    If i=13*(a+b+c) then
     begin
      writeln(i);
      inc(k)
     end;
    End;
    If k>0 then writeLn ('Все таких чисел ', k)
    else writeln ('Таких чисел нет.');
    Until ReadKey=#27
END.

[Renge]

Спасибо огромное.

[_-Re@l-_]

If k>0 then writeLn ('Все таких чисел ', 3)

Не понял...А разве не

If k>0 then writeLn ('Все таких чисел ', k)