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

Question

Алексей Малышев

Информатика

11 марта, 10:14

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

+3

Ответы (1)

Знаешь ответ на этот вопрос?

Тимур Куликов · 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