Составьте программу вычисления суммы чисел кратных - вопрос №661004770737 от riathome26 23.08.2021 17:31

Question

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

riathome26 · Answer

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