
Kizhoshs
7 год назад
Составить программу вычисления произведения чисел от 10 до 15.
ОТВЕТЫ

Albertovich
Jul 17, 2019
Var
p, i: integer;
begin
p := 1;
for i := 10 to 15 do
p := p * i;
write(p);
end.
begin
p := 1;
for i := 10 to 15 do
p := p * i;
write(p);
end.
155
Смежные вопросы: