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

[svob]

Ошибка не ошибка, всеравно спасибо.

[svob]

[vokar97]

 
var i, n, pr : integer;
    a, b, c : integer;
begin
  n:=0;
  for i:=10 to 99 do begin
    pr:= i * 3;
    a:= pr div 10; b:= pr mod 10; c:= pr div 100;
      if ((a+b+c) mod 5=0)
         then n:= n + 1;
  end;
  Writeln(n); Readln;
end.

[svob]

Работает оба варианта отлично! Всем спасибо

[svob]

[vokar97]

Тебе спасибо! Ведь для меня, как новичка, нет лучше стимула, чем правильно решенное задание

[VIK_aka_TOR]

Svob, такими постами с картинками и до бана не далеко... картинок поменьше, коду побольше... или же кидай изображения в радикал а сюда ссыль... а код овормлять при помощи кнопки #...