Для тех, кто не прочь пораскинуть мозгами

[svob]

Прошу помощи у вас, профессионалов.
Необходимо решить задачу, желательно в разных вариантах.
Собственно сама задача :
Найдите и выведите на экран количество двузначных чисел, у которых при умножении на 3 сумма цифр кратна 5.

Заранее спасибо

[VIK_aka_TOR]

kol_vo := 0;
for i := 10 to 99 do
 begin
  x := i * 3;
  sum := 0;
   while x > 0 do
    begin
      sum := sum + x mod 10;
      x := x div 10;
    end;
  if sum mod 5 = 0 then
    inc(kol_vo);
 end;
writeln(kol_vo);

[svob]

Полная программа:

var
kol_vo:real;
kol_vo := 0;
for i := 10 to 99 do
 begin
  x := i * 3;
  sum := 0;
   while x > 0 then
    begin
      sum := sum + x mod 10;
      x := x div 10;
    end;
  if sum mod 5 = 0 then
    inc(kol_vo);
 end;
writeln(kol_vo);
end.

Верно?

[svob]

var K,i,x,sum:integer;
Begin
K:= 0;
for i := 10 to 99 do
 begin
  x := i * 3;
  sum := 0;
   while x > 0 do
    begin
      sum := sum + x mod 10;
      x := x div 10;
    end;
  if sum mod 5 = 0 then
    inc(K);
 end;
writeln(K);
end.

Вот так - работает)

[svob]

Спасибо за помощь, хоть и была ошибка :P.

[VIK_aka_TOR]

Сообщение от svob

Спасибо за помощь, хоть и была ошибка :P.

принципиально не пишу объявление переменных...)
нужно же хоть какую-то часть "работы" оставлять вам)))

p.s. хоть верно работает?

[svob]

Может кто-то еще предложит другой способ решения, буду очень благодарен

[svob]

Сообщение от VIK_aka_TOR

принципиально не пишу объявление переменных...)

while x > 0 then

then

а надо "do")

[svob]

в диапазоне от 10 до 99 выводит число 15, с изменимием диапазона выводимое число меняется, видимо работает

[VIK_aka_TOR]

Сообщение от svob

while x > 0 then

then

а надо "do")

это скорее описка, чем ошибка )))
p.s. приду домой проверю правильно ли работает...