Форум программистов, компьютерный форум, киберфорум
Наши страницы
PascalABC.NET
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.80/5: Рейтинг темы: голосов - 5, средняя оценка - 4.80
damir2407
0 / 0 / 0
Регистрация: 01.10.2015
Сообщений: 30
1

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

21.12.2015, 17:14. Просмотров 871. Ответов 5
Метки нет (Все метки)

Составить программу для вычисления произведения чисел:
6, 12, 18 ...,60
Решать с помощью циклов While или Repeat, но не как не For, так сказал учитель)Спасибо за ранее!
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
21.12.2015, 17:14
Ответы с готовыми решениями:

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

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

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

Создать программу для вычисления произведения
16 ∏(i+cossqrt(x)+i) i=2

Составить программу вычисления n3 как суммы нечетных чисел
Добрый день! Никак не могу сообразить, как написать такую программу. Понимаю,...

5
APALoff
1638 / 1067 / 1080
Регистрация: 03.07.2013
Сообщений: 4,507
21.12.2015, 17:29 2
Лучший ответ Сообщение было отмечено damir2407 как решение

Решение

Pascal
1
2
3
4
5
6
7
m:=1;
n:=6;
Repeat
  m:=m*n;
  Inc(n,6);
Until n>60;
Writeln(m);
1
damir2407
0 / 0 / 0
Регистрация: 01.10.2015
Сообщений: 30
21.12.2015, 17:40  [ТС] 3
А что такое Inc?
0
APALoff
1638 / 1067 / 1080
Регистрация: 03.07.2013
Сообщений: 4,507
21.12.2015, 17:47 4
Тоже самое, что и n:=n+6;
0
damir2407
0 / 0 / 0
Регистрация: 01.10.2015
Сообщений: 30
21.12.2015, 18:05  [ТС] 5
Inc(k); Выводит ошибку: Нет перегруженной подпрограммы с такими типами параметров
Как исправить?Стоит тип Real
0
ZX Spectrum-128
Модератор
Эксперт Pascal/Delphi
3881 / 2863 / 3639
Регистрация: 05.06.2014
Сообщений: 14,080
21.12.2015, 18:47 6
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
var
  n: integer;
  m: real;
 
begin
  m := 1;
  n := 6;
  repeat
    m := m * n;
    Inc(n, 6);
  until n > 60;
  Writeln(m:0:0);
end.
0
21.12.2015, 18:47
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
21.12.2015, 18:47

Составить программу для вычисления
Составить программу для вычисления z=\sqrt{1+e^{x\cdot sin\, x} + \left|xy...

составить программу для вычисления выражения
составить программу для вычисления выражения

Составить программу для вычисления x и y по формулам
Задание Составить программу для вычисления x и y по формулам х=0.94*10 (в...


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

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

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