Var i, h, res: integer;
begin
write('H = ');
readln(h);
res:=1;
for i:=1 to h do
res:=res*i;
writeln(h, '! = ', res);
<span>end.</span>
Геолог, геодезист, строитель, геофизик
Надеюсь понятно, заранее сори за качество:)
Ответ:
Их много
Объяснение:
Java, Javascript, Python, Ruby, PHP, C#, C++,php и тд
Ввод текста
редактирование
форматирование
печать