Program massa;var m, a: real; begin writeln('Введите массу.'); readln(m); writeln('Введите единицу измерения массы. 1 - килограмм, 2 - миллиграмм, 3 - грамм, 4 - тонна, 5 - центнер.'); readln(a); writeln('Введённое вами значение равно '); if a=1 then write(m, ' килограмм.'); if a=2 then write(m/1000000, ' килограмм.'); if a=3 then write(m/1000, ' килограмм.'); if a=4 then write(m*1000, ' килограмм.'); if a=5 then write(m*100, ' килограмм.'); end.
меее, немного с окончаниями напортачила, но если надо, то можно просто до кг сократить и всё будет ок
<span>a = 20
b = 3
c = mod(a,b) + b = mod(20,3) + 3 = 2+3 = 5</span>
Const N = 21;
Var
A:array[1..N] of integer;
i,k:integer;
S:real;
Begin
randomize;
S:=0;
k:=0;
Write('Исходный массив: ');
For i:= 1 to N do
Begin
A[i]:=random(80)-44;
Write(A[i],' ');
if A[i]<=12 then
Begin
S:=S+A[i];
k:=k+1
End;
End;
WriteLn;
WriteLn('Sr = ',S/k)
End.
1 мешок
а,и,о,у,ю,э,я,ы,е.
2 мешок
о,а,и,у,ю,э,я,е,ы.
Дано: ИНФОРМАТИКА, i-?
Решение:
<span> i=log2(1/P)
</span>И: i=log2(1/0,062)=4 бит
Н: i=log2(1/0.053)=4,24 бит
Ф: i=log2(1/0.002)=8,97 бит
О: i=log2(1/0.090)=3,47 бит
Р: i=log2(1/0.040)=4,64 бит
М: i=log2(1/0.026)=5,27 бит
А: i=log2(1/0.062)=4,01 бит
Т: i=log2(1/0.053)=4,24 бит
К: i=log2(1/0.028)=5,16
i=4+4,24+8,97+3,47+4,64+5,27+4,01+4,24+4+5,16+4,01=52,01 бит
Ответ: 52,01 бит