Тема: Оператор for, т.е. программу надобно написать с его подмогою.Вычислите для

Тема: Оператор for, т.е. программку надобно написать с его помощью.

Вычислите для первых n элементов:
a) 1+3+5+7+... и 1*3*5*7...;
b) 2+4+6+8... и 2*4*6*8...;
c) 3+6+9+12... и 3*6*9*12...;
d)4+8+12+16+... и 4*8*12*16... .
К примеру: При n=3 имеем 1+3+5=9; 1*3*5=15.
Заблаговременно спасибо!

Задать свой вопрос
1 ответ
Var n,i,s,p:integer;
begin
write('n = ');
readln(n);
//а
s:=0; p:=1;
for i:=1 to n do
 begin
 s:=s+(2*i-1); p:=p*(2*i-1);
 end;
writeln('s = ',s,' p = ',p);
//б
s:=0; p:=1;
for i:=1 to n do
 begin
 s:=s+2*i; p:=p*(2*i);
 end;
writeln('s = ',s,' p = ',p);
//в
s:=0; p:=1;
for i:=1 to n do
 begin
 s:=s+3*i; p:=p*(3*i);
 end;
writeln('s = ',s,' p = ',p);
//в
s:=0; p:=1;
for i:=1 to n do
 begin
 s:=s+4*i; p:=p*(4*i);
 end;
writeln('s = ',s,' p = ',p);
end.

Пример:
n = 4
s = 16 p = 105
s = 20 p = 384
s = 30 p = 1944
s = 40 p = 6144
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт