В программе Паскаль Даны 3 трёхзначных числа. Определить сумму тех, которых кратны 3.

Предыдущий
вопрос Следующий
вопрос

program SumMultiplesOfThree;

va
a, b, c, sum: integer;

begi
writeln('Enter three three-digit numbers:')
readln(a, b, c);

sum := 0;

if a mod 3 = 0 the
sum := sum + a
if b mod 3 = 0 the
sum := sum + b
if c mod 3 = 0 the
sum := sum + c;

writeln('Sum of numbers divisible by 3: ', sum)
end.