Составить сумму вычисления : а)первых n натуральных чисел. б)первых n четных,первых n нечетных

ОстановитеЭтотМир ОстановитеЭтотМир    2   08.03.2019 17:40    105

Ответы
lebedevan189 lebedevan189  24.05.2020 07:29

а) 

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.

 

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика