В целом четырехзначном числе сравнить суммы двух первых и двух последних цифр

1

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

2013-12-05T18:07:29+04:00
Var
  n,a,b,c,d: integer;
begin
  readln(n);
  a:= n mod 10;
  n:= n div 10;
  b:= n mod 10;
  n:= n div 10;
  c:= n mod 10;
  d:= n div 10;
  if a+b>c+d then writeln('последние две больше') else
    if a+b<c+d then writeln('первые две больше') else writeln('равны')
end.