<span><u>Задача а)</u>
</span>// PascalABC.NET 3.1, сборка 1174 от 22.02.2016
var
a,b:real;
procedure WriteAvg;
begin
Writeln('Среднее= ',(a+b)/2)
end;
begin
Write('a,b='); Read(a,b);
WriteAvg
end.
<u>Тестовое решение:</u>
a,b=6 4.9
Среднее= 5.45
<u>Задача б)</u>
// PascalABC.NET 3.1, сборка 1174 от 22.02.2016
begin
var c:=ReadlnChar('Введите символ:');
if c in ['A'..'z','А'..'я','Ё','ё'] then Writeln('буква')
else
if c in ['0'..'9'] then Writeln('цифра')
else Writeln('спецзнак')
end.
<u>Тестовое решение:</u>
Введите символ: i
буква
2304(10)=100100000000(2)
то есть переводим число из десятичной в двоичную
столбиком
делим каждый раз на 2
получившиеся чило делим на 2 до тех пор пока оно небудет равнятся 1
потом все остатки делений начиная с последный и заканчивая на 1 выписываем в один ряд
По формуле а,(b)=a*(b/9)
75,(8)=75*(8/9)
39,(16)=39*(16/99)(а это а,(бс)=а*(бс/99)
Находим сумму:683/9+3877/99=11390/99=115(05)
Проверила несколько раз
<span>1 символ в кодировке Виндовс-1251 = 1 байт.
1536 симв.*1 байт/симв. = 1536 байт.
1536 / 1024 = 1,5кБайт.
</span>
Промежуток времени определяется как сумма
1. времени получения Васей первых 512 Кбайт по каналу со скоростью 2^17 бит/с
2. времени получения Петей всех данных (4 Мбайта) по каналу со скоростью 2^15 бит/с
При вычислениях необходимо привести все единицы измерения в одну систему (например, Кбайт и Мбайт в биты)
1. t1=512*1024*8/2^17=(2^9)*(2^10)*8/(2^17)=4*8=32 сек
2. t2=4*1024*1024*8/2^15=4*(2^10)*(2^10)*8/(2^15)=4*32*8=1024 сек
Ответ: 1024+32=1056 сек