Ван-царевич і Змій Горинич знайшли в тридев’ятому царстві скриню з золотими монетами номіналом від 1 до N.
Іван взяв собі монети з парним номіналом, а Змій Горинич – з непарним.
Яка сума дісталась Івану-царевичу після розподілу скарбу?
Контрольні приклади
1) N= 5 => s= 6
2) N= 9 => s= 20
3) N= 40 => s=420
Пояснення до прикладу № 2
Іван отримав монети 2, 4, 6, 8 (Змій Горинич – 1, 3, 5, 7, 9) на загальну суму 2+4+6+8= 20.
// Возводит действилельное число x в целую степень n
Procedure Pow(Const X:real; Const n:integer; Var St:real);
Var i:integer;
Begin
St:=1;
For i:= 1 to n do
St:=St*x;
End;
Var
x,y,St:real;
n:integer;
Begin
y:=0;
Write('x = ');ReadLn(x);
Write('n = ');ReadLn(n);
For n:= 1 to n do
Begin
Pow(x,n,St);
y:=y+Cos(St);
End;
WriteLn('y = ',y);
End.
Функцией:
// Возводит действилельное число x в целую степень n
Function Pow(Const X:real; Const n:integer):real;
Var i:integer;
Begin
result:=1;
For i:= 1 to n do
result:=result*x;
End;
Var
x,y:real;
n:integer;
Begin
y:=0;
Write('x = ');ReadLn(x);
Write('n = ');ReadLn(n);
For n:= 1 to n do
y:=y+Cos(Pow(x,n));
WriteLn('y = ',y);
End.
Циклом:
Var
x,y,St:real;
n:integer;
Begin
y:=0;
Write('x = ');ReadLn(x);
Write('n = ');ReadLn(n);
St:=1;
For n:= 1 to n do
Begin
St:=St*x;
y:=y+Cos(St);
End;
WriteLn('y = ',y);
End.