№4. Игорь получил по почте 2 текстовых файла. Первый набран с алфавита, в котором 128 символов, а второй с алфавита, в котором на кодирование одного символа отведен 1 байт. Во сколько раз количество информации в первом файле меньше, чем во втором? ответ округлите до десятых. очень

print("Привет! Я недавно появился в интернете! Я могу рассказать тебе про музыку/игры/кино/книги")

fest = input("Ты хочешь посмотреть мои функции? ")

if fest.lower() == 'да':

   print("Круто!")

   print("Введи 1, если хочешь узнать об играх")

   print("Введи 2, если хочешь узнать о книгах")

   print("Введи 3, если хочешь узнать о музыке")

   print("Введи 4, если хочешь узнать о кино")

   x = int(input("Ввод: "))

   if x == 1:

       print("Круто! В играх можно классно провести время с друзьями!")

   elif x == 2:

       print("Книги - наше всё, без книг мы будем никем!")

   elif x == 3:

       print("Музыка, в наше время музыка очень популярна, послушай хотя бы альбом Деда Мороза!")

   elif x == 4:

       print("Ух, люблю кино. Боевики, милодраммы, не хочешь сходить как-нибудь? ;)")

   print("Отлично, как бы ты оценил меня? Оцени по трём критериям: интерес, веселье, польза")

   for i in range(3):

       x = int(input("Введи оценку (от 1 до 10) "))

   v = int(input(" за оценку, напоследок вычисли мне значение выражения:" (2 * 2)+2))

   while v != 6:

       print("Неверно, попробуй еще")

       v = int(input())

   print(" тебе, пока!")

   

else:

   print("Жаль, ну тогда пока :(")

2) Уровень B.

Код программы:

var a: array[1..10] of integer;

i, kol:integer;

begin

 write('Массив: ');

 for i:=1 to 10 do begin

   a[i] := random(201);

   write(a[i], ' ');

   end;

   kol:=0;

   for i:=1 to 10 do begin

     if (a[i] div 100) = 0 then

       kol := kol + 1;

   end;

   writeln();

   writeln('Двузначных чисел: ', kol);

end.

3) Уровень C.

Код программы:

var a: array[1..10] of integer;

i, kol:integer;

begin

 write('Массив: ');

 for i:=1 to 10 do begin

   a[i] := random(10, 100);

   write(a[i], ' ');

   end;

   kol:=0;

   for i:=1 to 9 do begin

     if (a[i] + a[i+1]) mod 3 = 0 then

       kol := kol + 1;

   end;

   writeln();

   writeln('Таких пар : ', kol);

end.