Ответы
Гость Var
a, p:real;
n, i:integer;
begin
write('a = ');
readln(a);
write('n = ');
readln(n);
p := a;
for i := 1 to n do
p := p * (a - i * n);
writeln('p = ', p);
readln;
end.
Нет комментариев
Похожие вопросы
Информатика
Напиши твір мій день......
Информатика
Каким браузером вы пользуетесь в школе?...
Список предметов
