Составьте программу вычисления суммы чисел кратных - вопрос №477051266 от aveter256 27.02.2020 16:14

Question

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

aveter256 · Answer

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