Question

написать программу которая подсчитывает сумму натуральных чисел кратных 3

Answer 1

Program Chisla;
Var A,B:integer;
Begin
i:=1
From i 1 to 10 do
Writeln ("Введите число");
Readln (A);
If (A mod 3) - 0 then B:=A+b;
Writeln ("Сумма -" ), B;
end