1. создайте файл целых чисел f. числа считываются с клавиатуры. признаком конца ввода является число 9999. 2. создайте файл информации по итогам сессии result.dat. для каждой группы каждого курса в файл заносится информация(количество курсов и групп на курсе фиксировано, сами номера курсов и групп в записи не хранятся): количество студентов в группе; количество допущенных к сессии; количество сдавших на «отлично»; количество сдавших на «хорошо» и «удовлетворительно»; количество получивших «неудовлетворительно».

Var   a: integer; begin   while (true) do   begin     readln(a);     if (a = 9999) then       break     else       system.io.file.appendalltext('f.txt', inttostr(a) + system.environment.newline);   end; end.===============const  e = 5; //кол-во курсов и группvar  a, b, c, d: integer;   f: string; begin  for a : = 1 to e do  begin    writeln('================');     writeln('группа №', a);     writeln('');     writeln('сколько  обучающихся  сдали на "отлично"? ');     readln(b);     f += inttostr(b) + ' - ';     c += b;     writeln('сколько  обучающихся  сдали на "хорошо"? ');     readln(b);     f += inttostr(b) + ' - ';     c += b;     writeln('сколько  обучающихся  сдали на  "удовлетворительно"? ');     readln(b);     f += inttostr(b) + ' - ';     c += b;     writeln('сколько  обучающихся  сдали на "неудовлетворительно"? ');     readln(b);     f += inttostr(b);     c += b;     f : = inttostr(c) + ' - ' + inttostr(c - b) + ' - ' + f;     system.io.file.appendalltext('result.dat', f + system.environment.newline);   end; end.

Pascalabc.net 3.4.2, сборка 1857 от 05.11.2018 внимание! если программа не работает, обновите версию!

begin

  var a: =readreal('a=');

  var n: =readinteger('n=');

  var s: =1/a; // для n=1

  if n< =1 then s+=1

  else

  begin

    a*=a; // a^2

    var z: =a;

    for var i: =2 to n do

    begin

      s+=1/z;

      z*=a

    end

  end;

  println(s)

end.

a= 3.73 n= 5 0.34553638581855

2

 

количество символов используемых для кодирования номера составляет:

30 букв + 10 цифр = 40 символов. количество информации несущий один символ равен 6 бит (2^i=40, но количество информации не может быть дробным числом, поэтому берем ближайшую степень двойки большую количества символов 2^6=64).

 

мы нашли количество информации заложенное в каждом символе, количество символов в номере равно 7, следовательно 7*6=42 бит

 

каждый номер равен 42 битам информации, но по условию каждый номер кодируется одинаковым и минимально возможным количеством байт, следовательно нам необходимо узнать сколько байт в 42 битах. если разделить 42 на 8 получится дробное число, а нам необходимо найти целое количество байт на каждый номер, поэтому находим ближайший множитель 8-ки который превысит количество бит, это 6 (8*6=48). каждый номер кодируется 6 байтами.

 

для хранения 50 автомобильных номеров потребуется: 6*50=300 байт