// Возводит действилельное число 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.
Так как используется 12 букв и десятичные числа, мощность алфавита будет N=22. Отсюда найдем вес одного символа по формуле Шеннона (N=2^i). Но 2^4=16, а 2^5=32, число 22 лежит между этими числами. Округлять нужно в большую сторону, поэтому i=5 бит. Далее найдём объём памяти, необходимой для хранения одного автомобильного номера: I=i*K (K-количество символов в одном номере, К=6). Итак, I=5*6=30 бит. Домножаем это число на количество номеров: 30*32=960 бит. Так как 1 байт=8 бит, переводим в байты: 960 бит=120 байт. ответ: 120 байт
var s:string; i,j,k:integer; begin; s:='Молодая княгиня Болконская приехала с работой в шитом золотом бархатном мешке. Ее хорошенькая, с чуть черневшимися усиками верхняя губка была коротка по зубам, но тем милее она открывалась и тем еще милее вытягивалась иногда и опускалась на нижнюю. Как это бывает у вполне привлекательных женщин, недостаток ее — короткость губы и полуоткрытый рот — казались ее особенною, собственно ее красотой. Всем было весело смотреть на эту полную здоровья и живости хорошенькую будущую мать, так легко переносившую свое положение. Старикам и скучающим, мрачным молодым людям казалось, что они сами делаются похожи на нее, побыв и поговорив несколько времени с ней. Кто говорил с ней и видел при каждом слове ее светлую улыбочку и блестящие белые зубы, которые виднелись беспрестанно, тот думал, что он особенно нынче любезен. И это думал каждый.'; for i:=1 to length(s) do for j:=1 to length(alf) do if s[i]=alf[j] then inc(k); writeln(k); end.
// Возводит действилельное число 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.