ДОБРО ПОЖАЛОВАТЬ
на первый проДВИГающий
молодежный портал - Движер!
marker Помощь по порталу


Иконка
Бизнес
центр
Иконка
Молодёжный
кадровый ресурс
Иконка
Универ
сити
Иконка
Творческие
галереи
Иконка
Клуб
«Движ`Ok»
Иконка
Сайты
сообществ
Личный сайт пользователя oleggolenГлавная страница
lenin a vecu! lenin vit! lenin vivra!
Дневник Пользователя :: паскаль, ржите

паскаль, ржите

18.11.2011 17:54:16

var
k,l,m,n:integer;
begin
writeLn('координаты угрожения');
read(k,l);
writeLn('координаты ферзя');
read(m,n);
m:=((m>=1) and (m<=8));
n:=((n>=1) and (m<=8));
if ((k=m or l=n ) and ((m=m++ and n=n++) and (m=m-- and m=m--)));
then
 writeLn('угрожает');
 else
if (k><m and l><n) and ((m><m--) and n><n++) and (m><m-- and n><m--)));
then
writeLn('не угрожает');
end.

Просмотров 511 Комментариев 2 Оценка 0

  Комментарии:

oleggolen Ур.7 (Подвижный):: 30.11.2011 02:57:31
Аватар пользователя

Ответ для IvanPetrov (29.11.2011 02:36:19):

да есть у меня одник особо одаренный ученик))


-------------------------------------------------
Девиз: lenin a vecu! lenin vit! lenin vivra! | Статус: l'Etat, c'est moi

IvanPetrov Ур.2 (Сонный):: 29.11.2011 02:36:19
Аватар пользователя

Вааааааааааааххааааа! Это кто такой умный пИсал??? 


-------------------------------------------------
Статус: Windows 8 официально выйдет в феврале 2012 года.

Добавлять комментарии могут только авторизованные пользователи.


© 2009-2017 первый проДВИГающий
молодежный портал «Dviger.com»

info.paymaster.ru www.megastock.ru Томск