Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
JeKiS_7
0 / 0 / 0
Регистрация: 07.10.2013
Сообщений: 8
#1

Дано натуральное п. Вычислить: - Turbo Pascal

07.10.2013, 15:21. Просмотров 320. Ответов 3
Метки нет (Все метки)

Дано натуральное п. Вычислить:
http://www.cyberforum.ru/turbo-pascal/thread40008.html
0
Миниатюры
Дано натуральное п. Вычислить:  
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
07.10.2013, 15:21
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Дано натуральное п. Вычислить: (Turbo Pascal):

Дано натуральное n. Вычислить:
Дано натуральное n. Вычислить:

Дано натуральное n. Вычислить: 1/22 + 1/42 + ... + 1/(2n) n .
Помогите пожалуйста найти решения Дано натуральное n. Вычислить: 1/22 + ...

Дано натуральное n. Вычислить:
Дано натуральное n. Вычислить: 1/1+1/2+...+1/n. Подскажите как сделать. Очень...

Дано натуральное n. Вычислить
Составить алгоритм циклической структуры для решения задачи Дано натуральное...

Дано натуральное n. Вычислить:
Дано натуральное n. Вычислить:...

3
LOLYOU1996
3 / 3 / 3
Регистрация: 25.08.2013
Сообщений: 39
07.10.2013, 15:51 #2
Вроде так:
Pascal
1
2
3
4
5
6
7
8
var
 n,i : integer;
 res: real;
begin 
 readln(n);
 for i:=0 to n do res := (n+1)/n;
 writeln(n);
end.
0
Alsezam
0 / 0 / 0
Регистрация: 17.07.2013
Сообщений: 2
07.10.2013, 15:57 #3
А не так?

Pascal
1
2
res:=1;
for i:=1 to n do res:=res+(i+1)/i;
0
Samhain
690 / 565 / 413
Регистрация: 31.03.2013
Сообщений: 1,029
07.10.2013, 16:12 #4
JeKiS_7,
Pascal
1
2
3
4
5
6
7
8
9
10
var s:real;
    i,n:integer;
begin
  write('n = ');
  readln(n);
  s:=0;
  for i:=1 to n do s:=s+(i+1)/i;
  writeln(s:0:4);
  readln
end.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
07.10.2013, 16:12
Привет! Вот еще темы с решениями:

Дано натуральное n. Вычислить:
S=1*2+2*3*4+....+n*(N+1)*....*2n Решить 2умя способами с использованием...

Дано натуральное n. Вычислить:
Прошу помощи) Дано натуральное n. Вычислить:

Дано натуральное n. Вычислить
S=1*2*3*4+...+n*(n+1)*...*2n. Составить 2 программы. с разными циклами

Дано натуральное n Вычислить:
Пожалуйста, помогите вычислить: Дано натуральное n Вычислить: Уранение во...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
4
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru