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

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

Задать свой вопрос
2 ответа
// PascalABC.NET 3.3, сборка 1583 от 25.11.2017
// Внимание! Если программа не работает, обновите версию!

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

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

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.
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

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

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт