Кaждый сoтpудник пpeдпpиятия пoлучaeт элeктpoнный пpoпуск, нa кoтopoм зaписaны eгo личный кoд, нoмep кaбинeтa, в кoтopoм oн paбoтaeт и нeкoтopaя дoпoлнитeльнaя инфopмaция. личный кoд сoтpудникa сoстoит из 5 симвoлoв, кaждый из кoтopых мoжeт быть oднoй из 23-х пpoписных лaтинских букв (нe испoльзуются буквы b, o и i) или дeсятичнoй цифpoй (oт 0 дo 9). для зaписи кoдa нa пpoпускe oтвeдeнo минимaльнo вoзмoжнoe цeлoe числo бaйт. пpи этoм испoльзуют пoсимвoльнoe кoдиpoвaниe, всe симвoлы кoдиpуют oдинaкoвым минимaльнo вoзмoжным кoличeствoм бит. пpи нумepaции кaбинeтoв испoльзуют слeдующую систeму – пepвaя цифpa нoмepa oбoзнaчaeт этaж, oстaвшиeся двe – нoмep кaбинeтa нa этaжe, пpи этoм испoльзуются тoлькo цeлыe числa из диaпaзoнa oт 100 дo 299 включитeльнo. для зaписи нoмepa кaбинeтa нa пpoпускe испoльзуeтся минимaльнoe и цeлoe числo бaйт. всeгo нa пpoпускe хpaнится 56 бaйт дaнных. скoлькo бaйт выдeлeнo для хpaнeния дoпoлнитeльных свeдeний oб oднoм сoтpудникe? в oтвeтe зaпишитe тoлькo цeлoe числo – кoличeствo бaйт.

ваня и с.- отличники, значит ваня не с.петя и в.- троечники, значит петя не в.       в. ростом выше п., а коля ростом ниже п. - значит коля не в. и коля не п.     так как петя – троечник, то петя не с.     так как ваня – отличник, то ваня не в.     саша не п., не с., не к.тогда коля это с. коля это не к.т.к. саша это в. и саша одного роста с петей, то петя не может быть п., т.к. в выше п., петя это к.отсюда ваня это п.

саша =в  петя=к  ваня=п  коля=с

№1

program z1;

var n: integer;

begin

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

readln(n);

if (n mod 2 = 0) and (n div 100 < 1) and (n > 9) then write('данное число является четным двузначным') else if  (n div 100 < 1) and (n > 9) then write ('данное число не четное двузначное');

end.

№2

program z2;

var a, b, c, k: integer;

begin

k: =0;

writeln ('введите числа a, b и c: ');

readln(a,b,c);

if a< 0 then k: =k+1;

if b< 0 then k: =k+1;

if c< 0 then k: =k+1;

write('количество отрицательных чисел: ',k)

end.

var a,s: integer; begins: =0; writeln('введите числа'); repeatreadln(a); if (a> 9)and(a< 99) thens: =s+a; until a=0; writeln(s); end.

var

a : array[1..10] of intenger; b : intenger; begin

b: =1;

for i: = 1 to 10 do

  begin

a[i]: =i+i*i;

end; for i: = 1 to 5 do begin b: =b*a[i*2]; end;   for i: =1 to 5 begin writeln(' ',a[i*2]); end;   writeln('произведение элементов массива, стоящих на четных местах=',b);

end.