Составьте программу вычисления суммы чисел кратных 6 в диапазоне от 6 до 100. там должно быть еще until вроде

Question

Информатика: Составьте программу вычисления суммы чисел кратных 6 в диапазоне от 6 до 100. там должно быть еще until вроде

Farys · Answer

Var i,s:integer;begini:=6;while i =100 do begin s:=s+i; i:=i+6; end;writeln( сумма= ,s);end....