var d, m:integer;
var h:real;
begin
readln(d);
m := d * 2;
h := m / 60;
m := m mod 60;
write('Количество часов = ' + Int(h) + ' количество минут = '+ m)
end.
Program z1;
var a, b:integer;
begin
write(' Введите возраст Саши - '); read(a);
write(' Введите возраст Mаши - '); read(b);
if a>b then writeln(' Саша старше Маши на ',a-b,' лет');
if a<b then writeln(' Маша старше Саши на ',b-a,' лет');
<span>end.</span>
При использовании 32-символьного алфавита для хранения одного символа требуется log(2)32 = 5 бит, при использовании 64-символьного - log(2)64 = 6 бит.
Объем первого сообщения = 80*5 = 400 бит;
объем второго сообщения = 70*6 = 420 бит
Ответ: объем второго сообщения больше