Найти сумму положительных кратных 7 чисел,меньших 100.

Question

Найти сумму положительных кратных 7 чисел,меньших 100.

Answer 1

Uses crt;
var i,s:integer;
begin clrscr;
s:=0; i:=7;
while i<100 do<br>begin
s:=s+i;
i:=i+7
end;
writeln(s);
end.