Var n,S,k:integer;
Begin
Write('n = ');ReadLn(n);
S:=0;
k:=0;
While n > 0 do
Begin
S:=S+n mod 10;
k:=k+1;
n:=n div 10
End;
WriteLn(k/S);
End.
Var
s:string;
n:integer;
begin
Write('Вводите: '); Readln(s);
n:=Length(s);
s:=Copy(s,n-2,3)+Copy(s,4,n-6)+Copy(s,1,3);
Writeln(s)
end.
**************************************************
var
s:string;
c:char;
i,n:integer;
begin
Write('Вводите: '); Readln(s);
n:=Length(s);
for i:=1 to 3 do begin
c:=s[i]; s[i]:=s[n-3+i]; s[n-3+i]:=c
end;
Writeln(s)
end.
Результат
Вводите: Информатика
икаорматИнф
Var a,b,c:int64;
begin
read(a,b,c);
writeln(c);
writeln(a);
writeln(b);
<span>end.</span>
итак, у нас есть файл, сжатый в два раза.
значит объем оригинального кода = 500кб * 2 = 1000кб
1000 кб = 1024000 байт или 8192000 бит (умножили на 8)
определим сколько бит приходитс на секунду записи:
8192000 бит / 30 сек = примерно 273066 бит в секунду. Известно что один отсчет занимает 16 бит, узнаем число отсчетов (частоту дискретизации)
273066/16 = примерно 17066 отсчетов в секунду.
Ответ: примерно 17.1 кГц
Var x, y:real;
Begin
Readln(x) ;
Y:=(sqr(a) +1)/sqrt(sqr(a)+1)
Write(y);
End.