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

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

Поиск

Мини-чат
200

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

Статистика

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

Форма входа

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

0327 В одном шаге от счастья

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

04.06.2012, 17:38
var a,x,y,x1,y1,k,c,v,a1,a2,x2,x3,y3,y2,i:longint;
s:string;
f1,f2:text;
begin
   assign(f1,'input.txt');
   assign(f2,'output.txt');
   reset(f1);
   rewrite(f2);
   read (f1,k);
   For i:=1 to k do
     Begin
        read(f1,a);
        a1:=a+1;
        a2:=a-1;
        x:=a1 mod 1000;
        y:=a1 div 1000;
        x3:=x mod 10+(x div 10) mod 10 +x div 100;
        y3:=y mod 10+(y div 10) mod 10 +y div 100;
        x1:=a2 mod 1000;
        y1:=a2 div 1000;
        x2:=x1 mod 10+(x1 div 10) mod 10 +x1 div 100;
        y2:=y1 mod 10+(y1 div 10) mod 10 +y1 div 100;
        if (x3=y3) or (y2=x2) then s:='Yes'
          else s:='No';
        writeln(f2,s);
     End;
close(f1);
close(f2);
end. 
Категория: Pascal | Добавил: shum
Просмотров: 4222 | Загрузок: 0
Всего комментариев: 0
Добавлять комментарии могут только зарегистрированные пользователи.
[ Регистрация | Вход ]
Это интересно!


Copyright MyCorp © 2020