Написать программу которая находит сумму чисел которые делятся на 3, для первых n натуральных чисел. число n вводится с клавиатуры. выполнить программу для n=50 записать результат.

Question

Информатика

Орина

23 января, 19:41

Написать программу которая находит сумму чисел которые делятся на 3, для первых n натуральных чисел. число n вводится с клавиатуры. выполнить программу для n=50 записать результат.

+2

Ответы (1)

Знаете ответ на вопрос?

Любим · Answer 1

Var n, i:byte; sum:integer;

begin

writeln ('Введите количество чисел') ;

readln (n) ;

sum:=0;

for i:=1 to n do

if i mod 3=0 then sum:=sum+i;

writeln ('Сумма=', sum) ;

readln;

end.