Форум программистов, компьютерный форум, киберфорум
Наши страницы

Turbo Pascal

Войти
Регистрация
Восстановить пароль
 
JeKiS_7
0 / 0 / 0
Регистрация: 07.10.2013
Сообщений: 8
#1

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

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

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

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

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

Дано натуральное n. Вычислить: - Turbo Pascal
Дано натуральное n. Вычислить: http://www.fotohost.by/pic_b/10/09/23/2bbcb8ecaae6540efbc1d109e6369910.jpg

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

Дано натуральное n. Вычислить - Turbo Pascal
Составить алгоритм циклической структуры для решения задачи Дано натуральное n. Вычислить: 1 + 1/2 + 1/3 +1/4 + … + 1/n Программу...

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

3
LOLYOU1996
3 / 3 / 0
Регистрация: 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
689 / 564 / 186
Регистрация: 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
07.10.2013, 16:12
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
07.10.2013, 16:12
Привет! Вот еще темы с ответами:

Дано натуральное n. Вычислить: - Turbo Pascal
Дано натуральное n. Вычислить: 1/(1^3)+1/(2^3)+...+1/(20^3)

Дано натуральное n, вычислить 1/0!+1/1!+...+1/n! - Turbo Pascal
6. Дано натуральное n, вычислить 1/0!+1/1!+...+1/n!. Так, чтобы не вычислять заново каждый раз факториал).

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

Дано натуральное п. Вычислить - Turbo Pascal
помогите написать в паскале Дано натуральное n. Вычислить Прикрепляйте файлы в тему. ...


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

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

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