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

@Dreelens · Регистрация: 08.06.2016

Студворк — интернет-сервис помощи студентам

Написать программу которая вычисляет произведение всех целых чисел от a до b (значения a и b вводятся с клавиатуры).

Это нужно сделать через цикл на сколько я понял.
Нашел аналогичное задание на форуме, но это код учитель сказал не подходит...

Pascal

var 
a,b,i,p:integer; 
begin 
write('Введите А: ');readln(a); 
write('Введите B: ');readln(b); 
p:=1; 
for i:=a to b do 
p:=p*i; 
writeln('Произведение целых от А до В= ',p); 
end.

@bormant · 29.10.2017, 11:42

Давайте порассуждаем, почему не подходит. Прежде всего, код верный для a<b и произведения, не превышающего High(Integer).
Соответственно, нарушение любого из этих условий может быть причиной.
От первого легко избавиться, предварительно поменяв a и b местами, если b<a. С другой стороны, в этом случае может требоваться вывод о том, что диапазон пуст, поди знай.
От второго -- использовав для p тип пошире: Longint или даже Real. Поскольку в озвученном вами условии не указаны диапазоны допустимых значений входных данных, остаётся только гадать.
Другой причиной может быть какое-то искусственное ограничение, не упомянутое вами в условии, вроде запрета на использование цикла for.

Но пока что все это капризы за пределами условия задачи.

Pascal

var
  a, b, i: Integer;
  p: Real;
begin
  Write('A B: '); ReadLn(a,b);
  if a>b then begin
    i:=a; a:=b; b:=i;
  end;
  p:=1;
  for i:=a to b do p:=p*i;
  WriteLn('P=',p:0:0);
end.

либо

Pascal

var
  a, b: Integer;
  p: Real;
begin
  Write('A B: '); ReadLn(a,b); p:=1;
  if a<=b 
  then for a:=a to b do p:=p*a
  else for a:=a downto b do p:=p*a;
  WriteLn('P=',p:0:0);
end.

@Dreelens · 29.10.2017, 12:45 **[ТС]**

А если b>=a?

@bormant · 29.10.2017, 12:49

Dreelens,
Да.

@bormant · 31.10.2017, 08:01

Так в чем дело было, что именно не подходило?

@Dreelens 0 / 0 / 1 Регистрация: 08.06.2016 Сообщений: 8
	29.10.2017, 12:45 [ТС]	3
	А если b>=a? 0

@bormant Модератор 7534 / 4394 / 2785 Регистрация: 22.11.2013 Сообщений: 12,588 Записей в блоге: 1
	29.10.2017, 12:49	4
	Dreelens, Да. 1

@bormant Модератор 7534 / 4394 / 2785 Регистрация: 22.11.2013 Сообщений: 12,588 Записей в блоге: 1
	31.10.2017, 08:01	5
	Так в чем дело было, что именно не подходило? 0

Опции темы

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

Решение