CODE work F2021: Командная тренировка #6 / std.nums.testlib

ru en cn

с начала прошло: 894 д. 15:56
страница обновлена: 29.03.2024 07:36

std.nums.testlib: nums.dpr

uses
  SysUtils, testlib;
var
  i, a, o: Integer;
begin
  i := 1;
  while not ans.SeekEof do begin
    a := ans.ReadInteger;
    o := ouf.ReadInteger;
    if a <> o then
      Quit(_WA, Format('%d <> %d @%d', [a, o, i]));
    Inc(i);
  end;
  if not ouf.SeekEof then
    Quit(_PE, 'Extra characters in output');
  Quit(_OK, '');
end.
Дальневосточный федеральный университет