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

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

program SumMultiplesOfThree;

var
a, b, c, sum: integer;

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

sum := 0;

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

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