Олимпиады по информатике (ХМАО - Югра)

   
 
Югорский НИИ ИТ, Югорский ФМЛ
Логин:   Пароль:    
 
   
 
Новости
О проекте
Регистрация
Гостевая книга
Форум
Архив задач
Состояние системы
Олимпиады
Работа в системе
Рейтинг
Новичкам
Методическое пособие
Дистанционное обучение
Дистрибутивы
Ссылки

HotLog

1
  1  Алиев Тофиг Тахирович, 05 октября 2018 г. 14:31:09
      Не понимаю, что это такое...
Система выдает данную ошибку как при выводе через консоль, так и при выводе в выходной файл данных.

Программа:

Var s: string;
a,b: integer;

begin
Assign(input, 'INPUT.TXT');
Assign(output, 'OUTPUT.TXT');
Reset(input);
ReWrite(output);
readln(s);
if (Copy(s,1,1) = 'x') then
begin
if (Copy(s,2,1) = '+') then
begin
a:= StrToInt(Copy(s,3,1));
b:= StrToInt(Copy(s,5,1));
writeln(b - a);
end
else if (Copy(s,2,1) = '-') then
begin
a:= StrToInt(Copy(s,3,1));
b:= StrToInt(Copy(s,5,1));
writeln(a + b);
end;
end
else if (Copy(s,3,1) = 'x') then
begin
if (Copy(s,2,1) = '+') then
begin
a:= StrToInt(Copy(s,1,1));
b:= StrToInt(Copy(s,5,1));
writeln(b - a);
end
else if (Copy(s,2,1) = '-') then
begin
a:= StrToInt(Copy(s,1,1));
b:= StrToInt(Copy(s,5,1));
writeln(a - b);
end;
end;
close(output);
end.
1

Чтобы оставить сообщение необходимо зарегистрироваться и авторизоваться!

 
     
Югорский НИИ ИТ, Югорский ФМЛ