Ответы
Ответ дал:
1
Ответ:
var n,k,f:integer;
begin
write('n='); readln(n);
k:=1;
f:=1;
while k<=n do
begin f:=f*k; k:=k+1; end;
writeln(n,'!=',f);
end.
Объяснение:
Сравните 2 программы. Там, где эти программы отличаются - там и ошибки
xxxbaggurxxx:
спасибо тебе
Вас заинтересует
11 месяцев назад
11 месяцев назад
1 год назад
6 лет назад
6 лет назад
7 лет назад
7 лет назад