Ответы
Ответ дал:
1
Ответ:
program z1;
var m,n,i: integer;
p:real;
begin
writeln('Введите два числа m и n (m < n)');
write ('m = ');
readln (m);
write ('n = ');
readln (n);
p:=1;
for i := m to n do p:=p*i;
writeln (p,' произведение чисел от ',m,' до ',n)
end.
Похожие вопросы
1 год назад
8 лет назад
8 лет назад