Дан программный код. Каждая строка имеет порядковый номер. Укажите номер строки указывающую на:
Вывод результата на экран
Открытие файла для чтения
Открытие файла для записи
Закрытие файла
Строка записи данных в файл

1 )fw=open(text.txt’,’w’)
2)fw.write(‘imya-Anna\n’)
3)fw.write(‘familiya-Tatkova\n’)
4)fw.close()
5)fr=open(text.txt’,’r’)
6)text=fr.read()
7)print(text)
​

Для решения примера вспоминаем, что при переходе от шестнадцатиричной системы счисления к двоичной достаточно заменить каждую шестнадцатиричную цифру четырьмя двоичными (тетрадой).
Предлагаемое в условии число представляет собой десятичную дробь, т.е. имеет целую и дробную части. Для целой части незначащими будут левые нули и мы будем искать их в первой тетраде. Для дробной части незначащие нули - последние и мы будем их искать в последней тетраде.
Первая тетрада - представление 1(16)=0001(2). Левые три нуля незначащие и их удаляем, остается 1. Последняя тетрада - представление Е(16)=1110(2). Тут один незначащий ноль - правый, остается 111.. Остальные тетрады переписываем без изменения.
12АС,6Е(16)=1 0010 1010 1100 , 0110 111 (2) 
Считаем количество нулей в записи: 9. Это и есть ответ.
Комментарии  Отметить нарушение

var

  a: array[1..1000] of real;

  i, k, n, z: integer;

begin

  writeln('введите число n: ');

  readln(n);

  writeln('введите число z: ');

  readln(z);

  writeln('введите ',n,' действительных чисел (каждое с новой строки): ');

  for i : = 1 to n do

  begin

    readln(a[i]);

    if a[i] > z then

    begin

      a[i] : = z;

      k : = k + 1;

    end;

  end;

  writeln('количество замен: ', k);

end.