Обсуждение @ 1493. В одном шаге от счастья @ Timus Online Judge

_DredD_ Как решить эту задачу в Turbo Pascal [4] // Задача 1493. В одном шаге от счастья 29 апр 2007 13:46

Напишите пожалуйста решение

jaggvdhdg Re: Как решить эту задачу в Turbo Pascal // Задача 1493. В одном шаге от счастья 16 янв 2008 19:39

Подожди сейчас от имени KAKTUS_OK напишу

KAKTUS_OK Re: Как решить эту задачу в Turbo Pascal [2] // Задача 1493. В одном шаге от счастья 16 янв 2008 19:40

var a:string;
q,w,e,r:longint;
cod:integer;
begin
readln(a);
val(a,q,cod);
w:=q mod 1000;
r:=q div 10000;
if (w-r=1) or (r-w=1)then writeln('Yes') else writeln(No);
readln
end.
у меня в паскале всё идёт но на тимусе пролетает

MOPDOBOPOT (USU) Re: Как решить эту задачу в Turbo Pascal // Задача 1493. В одном шаге от счастья 18 янв 2009 22:09

совсем нето...

amirani Re: Как решить эту задачу в Turbo Pascal // Задача 1493. В одном шаге от счастья 21 июл 2011 21:08

your program wouldn't work :)
see this without of course without function it can be written but to understand it's better...

var
   n:longint;
function name(n:longint):boolean;
var
   n1,n2,s1,s2,i:integer;
begin
   n1:=n div 1000;
   n2:=n mod 1000;
   s1:=0;
   s2:=0;
   for i:=1 to 3 do
   begin
      s1:=s1+n1 mod 10;
      s2:=s2+n2 mod 10;
      n1:=n1 div 10;
      n2:=n2 div 10;
   end;
   if s1=s2 then
      name:=true
   else
      name:=false;
end;
begin
   readln (n);
   if ((name(n+1)) or (name(n-1))) and (n<>999999)then
      writeln ('Yes')
   else
      writeln ('No');
end.

Обсуждение задачи 1493. В одном шаге от счастья