адрес клада :тихии океан,остров4 пальм,восточная пальма ,клад.
Вот программа:
var
x:integer;
function Fact(n:integer): integer;
var
i,sum:integer;
begin
sum:=1;
for i:=1 to n do
sum:=sum*i;
result:=sum;
end;
begin
readln(x);
writeln(Fact(x));
end.
--------->С помощью этой функции найти <span>факториалы пяти данных целых чисел.
- Вы не написали каких чисел</span>
Как-то так. Надеюсь поймёшь. Должно быть правильно)