Найти сумму двузначных чисел, кратным 3

Question

Найти сумму двузначных чисел, кратным 3

Answer 1

Var i,s:integer;
begin
s:=0;
for i:=10 to 99 do
if i mod 3=0 then s:=s+i;
writeln(s);
end.

Answer 2

Если сумма цифр делится на 3,то само число тоже делится на 3

Comments

в паскале лучше использовать mod 3, потому что находить сумму цифр - сложнее и дольше.