ПАСКАЛЬ ABC версия 3.0 Дано натуральное число N. Вычислить сумму 7+12+17...+N
ПАСКАЛЬ ABC версия 3.0 Дано натуральное число N. Вычислить сумму 7+12+17...+N
Гость
Ответ(ы) на вопрос:
Гостьvar
n,i,s:integer;
begin
Write('n='); Read(n);
i:=7; s:=0;
while i<=n do begin
s:=s+i;
i:=i+5
end;
Writeln('S=',s)
end.
Не нашли ответ?
Похожие вопросы