• Предмет: Информатика
  • Автор: baranovdanil1602
  • Вопрос задан 7 лет назад

найти произведение всех целых чисел от C до D
в паскале 

Ответы

Ответ дал: MiDorimo
0
programm abc;
var c,d,i,p:integer;
begin
read (c,d);
p:=0;
for i:=c to d do
p:=p+i;
writeln(p);
end.
Ответ дал: Аноним
0
Это сумма, а не произведение
Ответ дал: Аноним
0
// PascalABC.NET 3.3, сборка 1583 от 25.11.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var (c,d):=ReadInteger2('C,D=');
  Writeln('П = ',Range(c,d).Aggregate(BigInteger(1),(i,j)->i*j))
end.

Пример
C,D= 23 42
П = 1250004633476421848894668800000

Вас заинтересует