Выбери верный адрес ячейки.
1. К 28
2. РР
3. 32​

если для каждого из 3 символов возможны 3 варианта, то общее число слов    3³ = 27

program pr; label l; var mas: array[1..10] of integer; i,k,n,b,sum: integer; beginrandomize; for i: =1 to 10 do mas[i]: =round(())*random+(-10)); l: for i: =1 to 10 dobeginif n< mas[i] thenbeginn: =mas[i]; k: =i; end; end; writeln ('a[',k,']=',n); mas[k]: =-11; n: =0; k: =0; if b=0 thenbeginb: =1; goto l; end; readln; end.

программу проверил все работает

program yravnenie;

var  a,b,c,d,x1,x2,p,q: real; begin  repeat  write('a= ');   readln(a);   if a=0 then writeln('error: a=0. enter another value');   until a< > 0;   write('b= ');   readln(b);   write('c= ');   readln(c);   p: =b/a;   q: =c/a;   d: =sqr(p/2)-q;   if d> 0 then  begin    writeln('x1 = ',-p/2-sqrt(d): 0: 5);     writeln('x2 = ',-p/2+sqrt(d): 0: 5);   end  else  if d=0 then  writeln('x1 = x2 = ',-p/2: 0: 5)  else  begin    writeln('x1 = ',-p/2: 0: 5,'-i*',sqrt(-d): 0: 5);     writeln('x2 = ',-p/2: 0: 5,'+i*',sqrt(-d): 0: 5);   end;   readln; end.

var a: array [1..100] of integer;

i,n: integer;

s: string;

begin

  randomize;

  for i : =1 to 100 do

  begin

      a[i]: = random(1000)+1000;

      a[i]: =a[i] mod 100;

      a[i]: =a[i] div 10;

      if a[i] mod 2 = 0 then n=n+1;

  end;

  writeln(n);

end.