Ответы
Ответ дал:
0
Ответ дал:
0
a =3, n=2, в ответе должно быть 3*2*1=6, выводит ноль
Ответ дал:
0
Второй тест a=5, n=2, должно быть 5*4*3=60, выводит 40 => пожаловаться не правильное решение.
Ответ дал:
0
var
a,i,p,n:integer;
begin
writeln ('Введите число a');
readln (a);
writeln ('Введите число n');
readln (n);
p:=a;
for i:=1 to n-1 do begin
a:=a-i;
p:=p*a;
end;
write ('Ответ: ',p);
end.
a,i,p,n:integer;
begin
writeln ('Введите число a');
readln (a);
writeln ('Введите число n');
readln (n);
p:=a;
for i:=1 to n-1 do begin
a:=a-i;
p:=p*a;
end;
write ('Ответ: ',p);
end.
Похожие вопросы
2 года назад
7 лет назад
7 лет назад
10 лет назад
10 лет назад
10 лет назад