Дано целое число n ( 0). найти произведение n! - вопрос №7735598017 от Tomoki 29.12.2020 15:25

Question

Информатика: Дано целое число n ( 0). найти произведение n! =1*(в delphi.7 )

Tomoki · Answer

{$APPTYPE CONSOLE}Var   F:real;   N:integer;BeginWrite( N = );ReadLn(N);F:=1;For N:= 1 to N do    F:=F*N;Write(N, ! = ,F);ReadLnEnd....

Дано целое число n (> 0). найти произведение n! =1*(в delphi.7 )