1. 18 симв*8бит/симв= 144 бит
2. 24 симв*8бит/симв= 192 бит
3. 22 симв*16бит/симв=352 бит
4. 592/8=74 симв
5. 50/22==3бит (3*8=24>22)
9. 150/2=75 байт
10. 30/2=15байт= 120бит
Var x, l: integer;
begin
readln(x);
l := Trunc(Log10(Abs(x)));
if l = 2 then
writeln (x)
else
writeln('число не трехзначное');
<span>end.</span>
С целью передать информацию.
Только что созданный текстовый файл получил расширение txt