Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
tinager2011
1 / 1 / 3
Регистрация: 26.10.2013
Сообщений: 51
#1

Найти сумму всех положительных чисел

20.11.2013, 22:29. Просмотров 488. Ответов 1
Метки нет (Все метки)

Пусть ai=http://www.cyberforum.ru/cgi-bin/latex.cgi?\frac{i-1}{i+1}+sin\frac{(i-3)^3}/{(i+1)} , i=1,2...n где n задано. Найти сумму всех положительных чисел ai. Помогите пожалуста правильно ли это ? Может что не так ??
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
prograM ter;
uses crt;
var n:integer;
    a:real;
    s:real;
    i:integer;
begin
writeln('Vvedite chislo n');
readln(n);
i:=0;
s:=0;
for i:=1 to n do
a:=(i-1/i+1)+sin((i-1)*(i-1)*(i-1))/(i+1);
if a>0 then begin
s:=s+a;
writeln('Summa pologitelnix chisel=',s);
end;end.

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
20.11.2013, 22:29
Ответы с готовыми решениями:

Найти суммы всех отрицательных и всех положительных из n чисел, и определить, какая из них по модулю больше
40. Последовательно вводятся с клавиатуры n целых чисел. Найти суммы всех...

Вычислить сумму всех положительных чётных чисел в массиве
program m1; const n=6; var a,b:array of integer; i:integer; S:real; begin...

Вывести сумму всех положительных четных чисел из набора
Дан набор ненулевых целых чисел; признак его завершения — число 0. Вывести...

Последовательность. Вывести сумму всех положительных четных чисел
Помогите плс! Дан набор ненулевых целых чисел; признак его завершения — число...

Написать функцию которая считает сумму всех положительных чисел
Помогите пожалуйста, уже не знаю как и что исправить, надо написать функцию...

1
erl27
892 / 741 / 831
Регистрация: 06.09.2013
Сообщений: 1,561
21.11.2013, 02:14 #2
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
program ter;
 
uses
  crt;
 
var
  n, i: integer;
  a, S: real;
 
begin
  writeln('Vvedite chislo n');
  readln(n);
  S := 0;
  for i := 1 to n do begin
    a := (i - 1) / (i + 1) + sin(sqr(i - 1) * (i - 1)) / (i + 1);
    if a > 0 then S := S + a;
  end;
  writeln('Summa pologitelnix chisel = ', S:0:5);
  writeln;
end.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
21.11.2013, 02:14

Вычислить сумму всех положительных двухзначных чисел кратных 5 и 7 одновременно
Вычислить сумму всех положительных двухзначных чисел кратных 5 и 7...

Найти сумму всех положительных элементов матрицы
Найти сумму всех положительных элементов матрицы.

Найти сумму всех положительных элементов массива
помогите с задачкми) плиз):):help::help::help: 1) найти сумму всех...


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

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

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