Предмет: Информатика,
автор: ashle65
Составить программу в Паскаль. Вывести на экран произведение первых 20-ти натуральных чисел.
Очень нужно. Заранее спасибо!)
Ответы
Автор ответа:
1
Типа double должно хватить под это все дело.
В целочисленные типы такое число, увы, не влезет.
var
i:integer;
result:double;
begin
result := 1;
for i := 2 to 20 do
result := result * i;
writeln('Результат = ', result);
end.
Автор ответа:
1
// PascalABC.NET 3.4.2, сборка 1785 от 06.09.2018
begin
Range(1,20).Aggregate(biginteger(1),(p,x) -> p*x).Println;
end.
Ответ = 2432902008176640000
Browze:
Всего 3 строки..
1, операторные скобки это такое)
20.Range.Aggregate ... - короче
А так все четко, стандартная свертка.
Browse: да, всего три. А по факту - один исполняемый оператор. Такой вот язык.
browZe)))
В Вашем профиле написано Browze ))
там z, а не s, как выше вы написали)
Точно, извиняюсь, неправ был
Да ладно, вы не первый))
Интересные вопросы
Предмет: Математика,
автор: Muhammed42
Предмет: География,
автор: cbbxbxbdbxbxb
Предмет: Геометрия,
автор: vanyaburmistrov80
Предмет: Математика,
автор: вов7