Pascal.. даны натуральные числа а, n. вычислить a(a-n)*(a--n*n)

Алуопо Алуопо    2   16.06.2019 16:00    0

Ответы
mrrr15 mrrr15  02.10.2020 02:47
Должно быть правильно, проверь на тестах.
var
a,c,d,n:longint;
begin
read(a,n);
d:=1;
for c:=1 to n do
d:=a*(a-n*c)*d;
writeln(d);
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика