Составьте программу вычисления произведения P=1*3*5*...*23 (в паскале)
Составьте программу вычисления произведения P=1*3*5*...*23 (в паскале)
Гость
Ответ(ы) на вопрос:
Гостьprogram ca;
var
p, i: integer;
begin
i := 3;
p := 1;
while i <= 23 do
begin
p := p * i;
i := i + 2;
end;
writeln('p = ', p);
end.
Гость// PascalABC.NET 3.2, сборка 1370 от 24.12.2016
// Внимание! Если программа не работает, обновите версию!
begin
Writeln(Range(1,23,2).Aggregate(int64(1),(x,y)->x*y));
end.
Результат
316234143225
Не нашли ответ?
Похожие вопросы