Память, занимаемая сообщением первоначально: 50*8 бит = 50 байт
Память, занимаемая сообщением после перекодировки:
50*16 бит = 50*2 байт = 100 байт
Количество информации увеличилось на 100-50 байт = 50 байт
Стандартная дискета имеет объем 1,44 Мбайт.
Длина сообщения - 1160 бит. Пусть количество сообщений, которое может уместится на дискете будет равно X. Следовательно, имеем урованение:
1160 бит * X = 1,44Мбайт
1160 бит * X = 1,44 * 1024 * 1024 * 8 бит
1160 бит * X = 12079595,5 бит
X = 12079595,5 / 1160 = 10413,4444
Ответ: 10413 сообщений
Var x,y:real;
begin
readln(x);
if x<0 then y:=1
else if (x>=0) and (x<10) then y:=x+3
else if x>=10 then y:=x/2;
writeln(y);
<span>end.</span>
1)
Program n1;
var i: integer;
sum: real;
begin
sum:=0;
for i:=102 to 1000 do if (i mod 3=0) then sum:=sum+i;
writeln('Сумма: ',sum);
end.
2)
Program n2;
var i: integer;
begin
for i:=10 to 99 do if (i mod 2<>0)then writeln(i);
end.
<h3>PascalABC.NET 3.4.2, сборка 1814 от 02.10.2018
</h3>
begin
var count := 0;
var a := Range(ReadInteger('a='), ReadInteger('b='))
.Select(t -> t.ToString.JoinIntoString(' ').ToIntegers)
.Where(t -> t.Count.IsEven);
foreach var x in a do
begin
var (b, i) := (true, 0);
while (b) and (i < x.Length - 1) do
begin
if (x[i].IsOdd and x[i + 1].IsOdd) or (x[i].IsEven and x[i + 1].IsEven)
then b := false;
inc(i, 2);
end;
if (i = x.Length) and (b) then inc(count);
end;
count.Println;
end.