function TenIn16(x: integer): string; var s: string; begin repeat s := sixteen[x mod 16 + 1] + s; x := x div 16; until x = 0; if length(s) = 1 then s := '0' + s; TenIn16 := s; end;
var f1, f2: text; a1, a2, a3: byte;
begin assign(f1, 'record.txt'); reset(f1); assign(f2, 'result.txt'); rewrite(f2); while not eof(f1) do begin read(f1, a1, a2, a3); writeln(f2, TenIn16(a1), TenIn16(a2), TenIn16(a3)); end; close(f1); close(f2); end.
//PascalABC.NET (версия 3.1, сборка 1210 от 29.03.2016) var a: array of integer; i, n: integer;
begin write('Введите n ');readln(n); SetLength(a, n); writeln('Исходный массив :'); for i := 0 to n - 1 do begin a[i] := random(-20, 20);write(a[i]:4); end; writeln; writeln('Массив после обработки:'); for i := 0 to n - 1 do begin if a[i] < 0 then a[i] := 10; write(a[i]:4); end; end.
шина, обеспечивающая соединение между х86-совместимым центр. процом и внутренними устройствами.