Написать код программы в pascal для : дан символьный тип f, содержащий сведения о сотрудниках учреждения, записанные по следующему образцу: фамилия_имя_отчество, записать эти сведения в файле g, используя образец: имя_отчество_фамилия,

Type
  tFIO=record
    fam,im,otch:string
  end;
var
  f:tFIO;
  s:string;
  g:Text;
  i,n:integer;
begin
  Assign(g,'IOF.txt'); Rewrite(g);
  Write('Количество сотрудников: '); Readln(n);
  for i:=1 to n do
  begin
    With f do
    begin
      { сформировать запись типа f }
      Writeln('*** Сотрудник № ',i,' ***');
      Writeln('Фамилия: '); Readln(s); fam:=s;
      Writeln('Имя: '); Readln(s); im:=s;
      Writeln('Отчество: '); Readln(s); otch:=s;
      { занести данные в файл }
      Writeln(g,im,' ',otch,' ',fam)
    end
  end;
  Close(g)
end.

Аз, буки — бери указку в руки, фита, ижица — плетка ближится.

Если дурак, то это надолго.

Если б да кабы во рту росли грибы — тогда бы был не рот, а полный огород.

Если больная смотрит в зеркало — значит она выздоравливает.

Если голова пуста, то ей ума не придадут места.

Если гора не идет к Магомету, то Магомет идет к горе.

Если по-русски скроен, то и один в поле воин.

Если хочешь потерять друга — одолжи ему денег.

Неча на зеркало пенять, коли рожа крива.

Долог день до вечера, коли делать нечего.

Не на пользу книги читать, коли только вершки в них хватать.

Худ обед, коли хлеба нет.

1) узнаем количество символов на экране:

25*80=2000 символов.

в кодирвке КОИ -8 каждый символ кодируется 8 битами. таким образом: 2000*8 = 16000бит=2000байт=1,953125кБ

 

2) пусть х - количество символов, у - количество информации. запишем систему уравнений:

 

ну и решаем это неравенство. подставим вместо у во второе уравнение 8х:

16х=8х+8000

8х = 8000

х = 1000 символов

 

3) считаем количество символов в предложении:

32 символа * 8 бит = 256 бит = 32 байта.

ответ: (смотрите внимательно, у вас опечатка в ответах в 3 задаче)