Вычислить сумму натуральных чисел, кратных 3, меньшую 100.

Паскаль

Question

Витюша

7 октября, 18:24

+3

Ответы (1)

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

Генуша · Answer 1

var i, sum:integer;

begin

sum:=0;

for i: = 1 to 100 do

begin

if (i mod 3 = 0) and (sum+i<100) then

sum:=sum+i;

end;

writeln (sum) ;

end.

Вычислить сумму натуральных чисел, кратных 3, меньшую 100.Паскаль