1.Сравните объемы информации, содержащиеся в двух письмах. Первое письмо состоит из 50 символов 64-символьного алфавита, а второе из 40 символов 32-символьного алфавита. 2.Какова мощность алфавита, если сообщение, содержащее 512 символов, занимает часть Кбайта? 3. Сообщение, записанное буквами 128-символьного алфавита, содержит 30 символов. Какой объем информации оно несет? 4.Определите количество информации в книге, набранной на компьютере. Книга содержит 1500 страниц. На каждой странице- 40 строк, в каждой строке- 60 символов. Запиши ответ в наиболее подходящих единицах.
// Внимание! Если программа не работает, обновите версию!
begin
var a,b,c:real;
Read(a,b,c); // не вводить одинаковых!
if a>b then
if a>c then // a > [b,c]
if b>c then Writeln('Среднее - второе число')
else Writeln('Среднее - третье число')
else Writeln('Среднее - первое число')
else
if b>c then // b > [a,c]
if a>c then Writeln('Среднее - первое число')
else Writeln('Среднее - третье число')
else Writeln('Среднее - второе число')
end.
i: integer;
label 1, 2, 3, 4;
begin
1:
Writeln('1)Периметр квадрата');
Writeln('2)Площадь равностороннего треугольника');
Write('Ваш выбор >>> ');
Read(n);
Writeln('');
if n = 1 then
begin
2:
Write('Введите площадь кварата >>> ');
Read(s);
if s < 0 then
begin
Writeln('Некорректный ввод');
Writeln('');
goto 2;
end;
a := Sqrt(s) * 4;
Writeln('');
Writeln('Периметр квадрата >>> ', a);
goto 4;
end
else
if n = 2 then
begin
3:
Write('Введите периметр равностороннего треугольника >>> ');
Read(a);
if a < 0 then
begin
Writeln('Некорректный ввод');
Writeln('');
goto 3;
end;
s := (sqrt(3) / 4) * Sqr(a/3);
Writeln('');
Writeln('Площадь равностороннего треугольника >>> ', s);
goto 4;
end
else
begin
Writeln('Некорректный ввод');
Writeln('');
goto 1;
end;
4:
Writeln('');
Writeln('1)Заного');
Writeln('2)Выйти');
Write('Ваш выбор >>> ');
Read(n);
Writeln('');
if n = 1 then
goto 1 ;
else
exit;
end.