найти сумму чисел от 50 до 100, кратных 2 и 3.

турбо паскаль!

Question

Ираида

16 марта, 17:29

+2

Ответы (1)

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

Ангелика · Answer 1

var

i, s: integer;

begin

s: = 0;

for i: = 50 to 100 do

if (i mod 2 = 0) and (i mod 3 = 0) then s: = s + i;

writeln (s) ;

readln;

end.

найти сумму чисел от 50 до 100, кратных 2 и 3.турбо паскаль!