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

2013-12-11T20:14:59+04:00
var
  a,c,sa,sc,da,dc: integer;

begin
  readln(a,c);
  while (a>0) and (c>0) do begin
    da:= a mod 10;
    dc:= c mod 10;
    sa:= sa+da;
    sc:= sc+dc;
    a:= a div 10;
    c:= c div 10
  end;
  if sa=sc then writeln('Счастливый билет')
end.
Комментарий удален
Комментарий удален
здесь это не обяательно