|
|
back to boardКак решить эту задачу в Turbo Pascal Posted by Emil 29 Apr 2007 13:46 Напишите пожалуйста решение Re: Как решить эту задачу в Turbo Pascal Posted by raksha 16 Jan 2008 19:39 Подожди сейчас от имени KAKTUS_OK напишу Re: Как решить эту задачу в Turbo Pascal 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.
у меня в паскале всё идёт но на тимусе пролетает Re: Как решить эту задачу в Turbo Pascal совсем нето... Re: Как решить эту задачу в Turbo Pascal Posted by amirani 21 Jul 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. |
|
|
