Вычислить сумму: s = 1 + 2 + 3 + ... + n, если значение n задано, не применяя формулу суммы членов арифметической прогрессии. 3 способа.
можно и один способ, но желательно все 3.
Заранее спасибо!
Ответы
Ответ дал:
0
1.
var n,s,i:integer;
begin
write('n='); readln(n);
s:=0;
for i:=1 to n do s:=s+i;
writeln('s=',s);
end.
2.
var n,s,i:integer;
begin
write('n='); readln(n);
s:=0; i:=0;
while i<n do
begin i:=i+1; s:=s+i; end;
writeln('s=',s);
end.
3.
var n,s,i:integer;
begin
write('n='); readln(n);
s:=0; i:=0;
repeat
i:=i+1; s:=s+i;
until i=n;
writeln('s=',s);
end.
Пример:
n=5
s=15
var n,s,i:integer;
begin
write('n='); readln(n);
s:=0;
for i:=1 to n do s:=s+i;
writeln('s=',s);
end.
2.
var n,s,i:integer;
begin
write('n='); readln(n);
s:=0; i:=0;
while i<n do
begin i:=i+1; s:=s+i; end;
writeln('s=',s);
end.
3.
var n,s,i:integer;
begin
write('n='); readln(n);
s:=0; i:=0;
repeat
i:=i+1; s:=s+i;
until i=n;
writeln('s=',s);
end.
Пример:
n=5
s=15
Вас заинтересует
1 год назад
1 год назад
6 лет назад
8 лет назад
8 лет назад
9 лет назад