Предмет: Информатика,
автор: baranovdanil1602
найти произведение всех целых чисел от C до D
в паскале
Ответы
Автор ответа:
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.
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
// Внимание! Если программа не работает, обновите версию!
begin
var (c,d):=ReadInteger2('C,D=');
Writeln('П = ',Range(c,d).Aggregate(BigInteger(1),(i,j)->i*j))
end.
Пример
C,D= 23 42
П = 1250004633476421848894668800000
Похожие вопросы
Предмет: Английский язык,
автор: dimakomarov813
Предмет: Математика,
автор: naizabekovabota
Предмет: Русский язык,
автор: Аноним
Предмет: Литература,
автор: Настеньк37874
Предмет: Химия,
автор: mintcheese