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

Question

Информатика

Антониныч

25 августа, 03:10

Написать программу которая подсчитывает сумму натуральных чисел кратных 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