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

Паскаль

Question

Емилиан

5 августа, 08:32

+4

Ответы (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.Паскаль