Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.54/13: Рейтинг темы: голосов - 13, средняя оценка - 4.54
Aleks066
0 / 0 / 0
Регистрация: 07.12.2012
Сообщений: 59
#1

Составить программу для вычисления суммы, количества и произведения n натуральных чисел.

06.10.2013, 21:26. Просмотров 2570. Ответов 1
Метки нет (Все метки)

Составить программу для вычисления суммы, количества и произведения n натуральных чисел.
Суму отрицательных количество чисел меньших 3 и произведений положительных.

Использовать циклы с параметром

Добавлено через 9 часов 35 минут
Помогите пожалуйста

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

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

Составьте программу для нахождения количества,суммы и произведения всех натуральных чисел, делящихся на 4 на отрезке [16,64]
Составьте программу для нахождения количества,суммы и произведения всех...

Составить программу вычисления произведения логарифмов натуральных чисел
Вот такую ещё, заранее спасибо. 9. Составить программу вычисления произведения...

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

Составить программу вычисления суммы всех натуральных двузначных чисел,кратных 3
Составить программу вычисления суммы всех натуральных двузначных чисел,кратных 3

Написать программу для вычисления суммы натуральных чисел отрезка [a,b]
Циклические операторы. Написать программу для вычисления суммы натуральных...

1
Samhain
690 / 565 / 413
Регистрация: 31.03.2013
Сообщений: 1,029
07.10.2013, 09:34 #2
Лучший ответ Сообщение было отмечено Aleks066 как решение

Решение

Aleks066,
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
var x,n,s,k,p,i:integer;
begin
  s:=0;k:=0;p:=1;
  write('n = ');readln(n);
  for i:=1 to n do
    begin
      write('x[',i,'] = ');readln(x);
      if x>0 then p:=p*x
      else s:=s+x;
      if x<3 then inc(k);
    end;
  writeln('s (x<0) = ',s,', k (x<3) = ',k,', p (x>0) = ',p);
  readln
end.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
07.10.2013, 09:34

Составить программу вычисления суммы произведения
Составить программу вычисления суммы произведения: ...

Составить программу вычисления суммы/произведения элементов бесконечного ряда
Прошу, помогите пожалуйста составить программу в Pascal ABC, вычисляющую сумму...

Составить программу для вычисления суммы факториалов всех нечетных чисел от 1 до N
Добрый день, прошу помощи. Нужно составить программу для вычисления суммы...


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

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

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