Решения задач acmp.ru
Главная
Вход
Регистрация
Воскресенье, 27.09.2020, 12:50Приветствую Вас Гость | RSS
Меню сайта

Категории раздела
Pascal [121]
C++ [76]

Поиск

Мини-чат
200

Легкий заработок!

Статистика

Онлайн всего: 1
Гостей: 1
Пользователей: 0

Форма входа

Главная » Файлы » Pascal

0006 Шахматы

Скачать файл можно после просмотра рекламы:

04.06.2012, 16:58
var f1,f2text;
i,a,b,c,l1,l2integer; s,ostring;
begin
assign(f1,'input.txt');
assign(f2,'output.txt');
reset(f1);
rewrite(f2);
read(f1,s);
l1=ord(s[1]);
l2=ord(s[4]);
val(s[2],a,c);
val(s[5],b,c);
if (length(s)=5) and (s[3]='-')
and ((65=l1) and (72=l1) and (65=l2) and (72=l2) and (a=1) and (a=8) and (b=1) and (b=8)) then
begin
if ((abs(l1-l2)=2) and (abs(a-b)=1)) or ((abs(l1-l2)=1) and (abs(a-b)=2)) then
o='YES' else o='NO'
end
else o='ERROR';
write(f2,o);
close(f1);
close(f2);
end.
Категория: Pascal | Добавил: shum
Просмотров: 5227 | Загрузок: 0
Всего комментариев: 0
Добавлять комментарии могут только зарегистрированные пользователи.
[ Регистрация | Вход ]
Это интересно!


Copyright MyCorp © 2020