Вопрос по информатике:
Вычислите для первых 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.
Задачу надо решить с оператором for, для Pascal 7.0.
- 20.06.2018 01:45
- Информатика
- remove_red_eye 20231
- thumb_up 8
Ответы и объяснения 1
uses Crt;
procedure L(n,first,step:integer);
var
i,s,current:integer;
p:double;
begin
p:=1;
s:=0;
current:=first;
for i:=1 to n do begin
s:=s+current;
p:=p*current;
Write(current,',');
current:=current+step
end;
Writeln(' : S=',s,', П=',p)
end;
var
n:integer;
begin
ClrScr;
Write('n=');
Read(n);
L(n,1,2);
L(n,2,2);
L(n,3,3);
L(n,4,4);
ReadKey
end.
- 21.06.2018 04:36
- thumb_up 38
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.