Вопрос по информатике:
Решите задачу-1 (Паскаль 7 класс) пожалуйста .Постарайтесь не сложным путем,а то учитель не поверит.))ДАЮ 30 БАЛОВ
- 26.11.2016 17:12
- Информатика
- remove_red_eye 9290
- thumb_up 9
Ответы и объяснения 2
Var i,n:integer; a,s:real;
begin
write('n = '); readln(n);
s:=24;
for i:=1 to n-1 do
begin
a:=(2*i-1)*(2*i)/(4*i);
s:=s+a;
end;
writeln('s = ',s);
end.
Пример:
n = 5
s = 36.5
- 27.11.2016 19:29
- thumb_up 16
Переделал, как написали в комментариях
var s,k:real; i,n:integer;
begin
write('n=');
read(n);
s:=24;
for i:=1 to n-1 do begin
k:=(2*i-1)*(2*i)/(4*i);
s:=s+k;
end;
write('sum=',s)
end.
- 28.11.2016 17:01
- thumb_up 38
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.