помогите с задачей: это счастливый билет если сумма первых трех цифр равна последним трем. узнать счастливый это билет или нет. p.s. в паскале. СРОЧНО НАДО

1

Ответы и объяснения

2013-05-07T13:12:55+04:00

program qq;

uses crt;
var n, s1, s2, a, i, c : integer;
begin
clrscr;
writeln ('vvod');
readln (n);
c:=1;
s1:=0;
s2:=0;
for i:=1 to 3 do
begin
c:=c*10;
a:=(n mod c)div (c div 10);
{отцепление последней цифры и приведение её к разряду единиц}
n:=n-a;
s1:=s1+a;
end;
for i:=1 to 3 do
begin
c:=c*10;
a:=(n mod c)div (c div 10);
n:=(n -a);
s2:=s2+a;
end;
if s1=s2 then writeln ('da')
else writeln ('net');
readkey;
end.