Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.60/5: Рейтинг темы: голосов - 5, средняя оценка - 4.60
Андрей45
0 / 0 / 0
Регистрация: 08.06.2015
Сообщений: 1
1

Получить сумму квадратов всех положительных членов последовательности

08.06.2015, 11:22. Просмотров 894. Ответов 1
Метки нет (Все метки)

Помогите пожалуйста решить задачу:Получить сумму квадратов всех положительных членов последовательности.
0
Лучшие ответы (1)
QA
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
08.06.2015, 11:22
Ответы с готовыми решениями:

Получить удвоеную сумму всех положительных членов последовательности
даны натуральное число n , действиетльные числа а1,....,an. Получить удвоеную сумму всех...

Получить удвоенную сумму всех положительных членов последовательности A 1, A2 , ..., An
Даны натуральное число n, действительные числа A1,A2,...,An.Получить удвоенную сумму всех...

Получить удвоенную сумму всех положительных членов последовательности
Одномерные массивы. Даны натуральное число n и действительные a1,…,an, где n≤3000. Получить...

Получить удвоенную сумму всех положительных членов последовательности
Завтро зачет а я не знаю как решить эту задачу, помогите пожалуйста очень срочно надо!!! Даны...

Получить удвоенную сумму всех положительных членов последовательности a [1], ... a [n].
дано натуральное число n, действительные числа a , ..., a . Получить удвоенную сумму всех...

1
Cyborg Drone
Модератор
5935 / 3509 / 2569
Регистрация: 17.08.2012
Сообщений: 11,246
15.06.2015, 00:14 2
Лучший ответ Сообщение было отмечено Андрей45 как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
var x, s: double;
    i, n: integer;
begin
  repeat
    write('Введите количество членов последовательности: ');
    readln(n);
    if n <= 0 then writeln('Членов последовательности не может быть менее одного. Повторите ввод.')
  until n > 0;
  writeln('Введите члены последовательности:');
  s := 0;
  for i := 1 to n do
    begin
      write(i:3, ': ');
      readln(x);
      if x > 0 then s := s + x * x
    end;
  if s > 0
    then write('Сумма квадратов положительных членов: ', s)
    else write('Последовательность не содержит положительных членов');
  readln
end.
1
Answers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
15.06.2015, 00:14

Получить удвоенную сумму всех положительных членов последовательности
Даны нат. число, действительные числа X1,...,Xn. Получить удвоенную сумму всех положительных членов...

Подпрограммы. Получить удвоенную сумму всех положительных членов последовательности с помощью функции
Даны натуральное число n и действительные a1,…,an, где n=100. Получить удвоенную сумму всех...

Получить сумму положительных и число отрицательных членов последовательности
Одномерный массив Даны натуральные числа n, a1, a2, … ,an. В последовательности a1, a2,…,an...


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

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

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