Вопрос от посетителя
Составить сумму вычисления :
а)первых n натуральных чисел.
б)первых n четных,первых n нечетных
Отвечает Илюха:
а)
var i,n,s: integer;
begin
readln(n);
s:=0;
for i:=1 to n do begin
s:=s+i;
end;
writeln(s);
end.
б)
var a,n,i,s: integer;
begin
readln(n);
s:=0;
a:=2;
for i:=1 to n do begin
s:=s+a;
a:=a+2
end;
writeln(‘Сумма первых ‘,n,’ четных чисел равна ‘,s);
a:=1;
s:=0;
for i:=1 to n do begin
s:=s+a;
a:=a+2;
end;
writeln(‘Сумма первых ‘,n,’ нечетных чисел равна ‘,s);
end.