Проанализируйте приведённую программу. Предположим , что в прерменную а введено значение 'ы'. В ответ запишите результат работы программы (в виде фразы).
VAR a:char; BEGIN WriteLn ('Введите букву'); ReadLn (a); CASE a OF 'а','о','и','ы','э','е','у','ю','я','ё' :WriteLn('эта буква обозначает гласный звук'); 'б','в','г','д','ж','з','л','м','н','р' :WriteLn('эта буква обозначает согласный звонкий звук');
'к','п','с','т','ф','х','ц','ч','ш','щ' :WriteLn('эта буква обозначает согласный глухой звук');
ELSE WriteLn('не знаю ответа
60 Мбайт * 8 = 480 Мбит - размер файла в мегабитах
480 Мбит * 1024 = 491520 Кбит - размер файла в килобитах
491520 / 2 = 245760 Кбит - половина файла
245760 Кбит / 256 = 960 секунд - время передачи первой половины файла
245760 Кбит / (256 / 2) = 245760 Кбит / 128 = 1920 секунд - время передачи втораой половины файла
960 с + 1920 с = 2880 секунд - общее время передачи
В одной минуте 60 секунд:
2880 / 60 = 48 минут - передан весь файл
Задание №2
Переведем килобайты в биты: N = 3750кбайт = 30720000бит
Вычислим скорость передачи информации: V = 30720000/120
V = 256000 бит/c
<p>program xxx;</p><p> var i, k, d, e, s : integer;</p><p>begin</p><p> k:=0;</p><p> for i:= 10 to 99 do</p><p> begin</p><p> d:= i div 10;</p><p> e:= i mod 10;</p><p> s:=d + e;</p><p> if i mod s = 0 then k:=k+1</p><p> end;</p><p> write ('кол-во чисел которые делятся на сумму своих цифр=', k);</p><p> readln</p><p>end.</p>