Составьте программу вычисления суммы чисел кратных - вопрос №64771080 от FoXiCZ 22.09.2022 06:11

Question

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

FoXiCZ · Answer

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