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

Question

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

Answer 1

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