Школьный этап олимпиады 2017, 7-8 кл. / std.nums.testlib

ru en cn

с начала прошло: 2633 д. 00:32
страница обновлена: 27.12.2024 14:32

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