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

program abc;

var

a, b, c, d: integer;

begin

d : = 0;

c : = 3;

for b : = 1 to c do

begin

readln (a);

if a mod 3 = 0 then d : = d + a;

end;

writeln (d);

end.

Код написан на языке Паскаль. Создаём 4 переменные целого типа. Считываем по очереди каждое трёхзначное число. Если оно делится без остатка на 3 (кратно 3-м), суммируем его с переменной "d". Алгоритм повторяется 3 раза. В итоге получаем сумму чисел, кратных трём.