АЛЬТ+ тренировочный / std.nums.testlib

ru en cn

с начала прошло: 21 д. 01:08
страница обновлена: 22.11.2024 18:08

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.
Дальневосточный федеральный университет