Определить превышает ли сумма крайних цифр сумму средних цифр в заданном четырехзначном числе. (Delphi)

[shablakov]

Определить превышает ли сумма крайних цифр сумму средних цифр в заданном четырехзначном числе.

[Mad_Cat]

a:=x div 1000;
b:=x mod 10;
c:=(x mod 1000) div 100;
d:=(x div 10) mod 10;
writeln(a+b>c+d);
{if a+b>c+d then showmessage('Да!')
else showmessage('Нет!')}

[Stilet]

Разделение цифр:

a[1]:=n div 1000;
a[2]:=(n div 100) mod 10;
a[3]:=(n mod 100) div 10;
a[4]:=n mod 10;

А дальше уже ими решай задачу.
Понятна идея?

[shablakov]

Не совсем !!!

[shablakov]

Сообщение от Stilet

Разделение цифр:

a[1]:=n div 1000;
a[2]:=(n div 100) mod 10;
a[3]:=(n mod 100) div 10;
a[4]:=n mod 10;

А дальше уже ими решай задачу.
Понятна идея?

Не совсем !!!