Составьте программу вычисления суммы чисел кратных - вопрос №477051266 от топфифа2 28.06.2021 04:03

Question

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

топфифа2 · Answer

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