Найти произведения всех вводных от K до 6 помогите плиз срочно надо
Найти произведения всех вводных от K до 6 помогите плиз срочно надо
Гость
Ответ(ы) на вопрос:
Гость //PascalABC.NET 3.1 сборка 1200
begin
var k := ReadInteger('k =');
var l := 6;
if k > l then swap(k, l);
Println(Range(k, l).Aggregate(1,(p, x) -> p * x));
end.
Не нашли ответ?
Похожие вопросы