| Код |
program Vichisl;
uses
Crt;
var
FirstDeystvie, SecondDeystvie, Resultat : Integer;
i : Integer;
function StepenChisla(Chislo, Stepen : Integer) : Integer;
var
i,Temp : Integer;
begin
Temp := 1;
for i := 1 to Stepen do
Temp := Temp * Chislo;
StepenChisla := Temp;
end;
function Factorial(n: Integer): Integer;
begin
if n > 1 then
Factorial := n * Factorial(n - 1)
else
Factorial := 1;
end;
begin
FirstDeystvie := 0;
SecondDeystvie := 0;
for i := 1 to 6 do begin
FirstDeystvie := FirstDeystvie + StepenChisla(2,i);
SecondDeytvie := Factorial(i) - StepenChisla(2,i);
end;
Resultat := FirstDeystvie + SecondDeystvie;
end.
|
|
