В соответствии с кодовой таблицей ASCII каждую латинскую букву можно закодировать десятичным числом. Слово «file» кодируется как 102105108101. Какому слову соответствует числовая последовательность 102105110101? film face fine fire

102105110101

Она же

102-105-110-101

Согластно таблице

f i n e

Объяснение:

Var a,b,c,n:integer;
begin
for a:=1 to 7 do
  for b:=a+1 to 8 do
    for c:=b+1 to 9 do
      begin
      n:=a*100+b*10+c;
      write(n:4)
      end;
end.

var
  i,j,n:integer;
  a:array[1..4,1..5]of real;
begin
for i:=1 to 4 do
  begin
  for j:=1 to 5 do
    begin
    a[i,j]:=random*2-1;
    write(a[i,j]:20:15);
    if a[i,j]>=0 then n:=n+1;
    end;
  writeln;
  end;
writeln('Количество неотрицательных: ',n);
end.

var
  i,j,sum:integer;
  a:array[1..3,1..4]of integer;
begin
for i:=1 to 3 do
  for j:=1 to 4 do
    readln(a[i,j]);
writeln('Массив:');
for i:=1 to 3 do
  begin
  for j:=1 to 4 do
    begin
    sum:=sum+a[i,j];
    write(a[i,j]:4);
    end;
  writeln('sum=':8,sum);
  sum:=0;
  end;
end.

Объяснение:

1

program Middle;

var

  mid, x1,x2,x3 : integer;

begin

   write('input x1, x2, x3 ');

   readln(x1,x2,x3);

   if x1 < x2  

   then    if x1 < x3

           then    if x2 < x3

                   then mid := x2

                   else mid := x3

           else    mid := x1

   else    if x1 > x3

           then    if x2 < x3

                   then mid := x3

                   else mid := x2

           else    mid := x1;

   writeln ('Middle is ',mid);

end.

2

program pifagor;

var

   Cat1, Cat2, Hyp, Space : real;

begin

   write ('Cat1, Cat2 :');

   Readln (Cat1, Cat2);

   Hyp := sqrt (sqr(Cat1)+sqr(Cat2));

   Space := (Cat1 * Cat2)/2;

   WriteLn ('By Cat1 =',Cat1:5:2,' and Cat2 = ',Cat2:5:2,' Hyp is: ',Hyp:5:2, ' Space is: ',Space:5:2);

end.