Найти сумму положительных кратных 7 чисел,меньших 100.
Найти сумму положительных кратных 7 чисел,меньших 100.
Гость
Ответ(ы) на вопрос:
Гостьuses crt;
var i,s:integer;
begin clrscr;
s:=0; i:=7;
while i<100 do
begin
s:=s+i;
i:=i+7
end;
writeln(s);
end.
Не нашли ответ?
Похожие вопросы