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

Question

Информатика

Бландина

24 июля, 07:45

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

+5

Ответы (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