Задача на mod Опции

[kurt]

Найти и вывести на экран кол-во двузначных чисел, у которых при умножении на 3 сумма цифр кратна 5.

[klem4]

мне кажется на 3 умножать не обязательно, если сумма цифр на 5 не делится, то и утроенная она делиться не будет ...

Perfez Поставь в свой программе

 
if (m mod 5)=0 then begin
  j:=j+1;
  writeln(m);
end;

И посмотри какие числа там получаются ...

А решение вот такое я думаю:

count := 0;
  for n := 10 to 99 do
   if ((n mod 10) + (n div 10)) mod 5 = 0 then inc(count);