Сколько существует автомобильных номеров, содержащих три буквы и 5 цифр, если используется всего 9 букв и 7 цифр? требуемый для записи этого объем информации?

Бита на один символ на один номер - 4*(5 +  3) = 32 бит = 4 байта 9! /3! + 7! /5! = 60480 + 42 = 60522 итого 242 088 байт

Program schet; var a: integer; label h; begin h: begin writeln('введите количество палочек: '); readln(a); if (a< =0) then goto h  else a: =a+3; writeln('у тани стало ', a, ' палочек'); end; readln; end.program schet; var a,b: integer; begina: =2015; writeln('сколько лет проводится олимпиада? '); readln(b); a: =a-b; writeln('первая олимпиада была проведена в ',a,' году.'); readln; end.program schet; var a,b,c,i: integer; beginwriteln('сколько семечек посадил пятачок? '); readln(a); writeln('сколько семечек не выросло? '); readln(b); a: =a-b; writeln('сколько не плодоносных яблонь? '); readln(c); a: =a-c; writeln('на скольки яблонях вкусные яблоки? '); readln(i); a: =a-i; if (a< 0) then writeln('выросло 0 яблонь с невкусными яблоками.')else writeln('выросло ',a,' яблонь с невкусными яблоками.'); readln; end.program schet; var a: real; beginwriteln('введите число, которое нужно округлить: '); readln(a); a: =round(a); writeln('ответ после округления: ',a); readln; end.

Var   a,i: integer;   m: real; begin   randomize;   m: =0;   write('получены числа: ');   for i: =1 to 3 do   begin       a: =random(10);       write(a,' ');       m: =m+a   end;   writeln;   m: =m/3;   writeln('их среднее арифметическое равно ',m: 0: 3) end. тестовое решение: получены числа: 5 3 3 их среднее арифметическое равно 3.667 var   n: integer; begin   write('введите целое число: '); read(n);   writeln(n-1,', ',n,', ',n+1) end. тестовое решение: введите целое число: 35 34, 35, 36