Наличия устройств-способность надёжность устройств- трудоёмкость изготовления- данные для справки: данные, память, программное обеспечение.

Обрабатывать данные,объем памяти,наличие программного обеспечения

должно по идее получиться "нет худо без добра.", но у меня получилось

"нет худо бrз одра." может ты в условии что-то напутала? вот программа которая переводит

 

function pow(a, x: integer): integer; var  rez, i: integer; begin  rez : = 1;   for i : = 1 to x do      rez : = rez * a;   pow : = rez; end; function bintodec(a: string): integer; vari ,r: integer; begin  r : = 0;   for i : = length(a) downto 1 do      r : = r + strtoint(a[i]) * pow(2, length(a) - i);   bintodec : = r; end; var  s: array[1..100] of string;   i: integer; begin  s[1] : = '11001101';   s[2] : = '11100101';   s[3] : = '11110010';   s[4] : = '00100000';   s[5] : = '11110101';   s[6] : = '11110011';   s[7] : = '11100100';   s[8] : = '11100000';   s[9] : = '00100000';   s[10] : = '11100001';   s[11] : = '1110010';   s[12] : = '11100111';   s[13] : = '00100000';   s[14] : = '11101110';   s[15] : = '11100001';   s[16] : = '11110000';   s[17] : = '11100000';   s[18] : = '00101110';   for i : = 1 to 18 do      write(chr(bintodec(; end.

var

  a, b, c, d, t1, t2: longint;

begin

  write('a = '); readln(a);

  write('b = '); readln(b);

  write('c = '); readln(c);

  write('d = '); readln(d);

  if a < b then

      t1 : = a

  else

      t1 : = b;

  if c < d then

      t2 : = c

  else

      t2 : = d;

  if t1 < t2 then

      writeln('min = ', t1)

  else

      writeln('min = ', t2);

  readln;

end.