Проверить истинность высказывания: "Сумма двух первых цифр данного четырехзначного числа равна сумме двух его последних цифр"

Serjant0007

Проверить истинность высказывания: "Сумма двух первых цифр данного четырехзначного числа равна сумме двух его последних цифр". С дивами и модами путаюсь. Спасибо огромное)))
1 ответ

Serjant0007

Uses crt;
Var
X: Integer;
f: Boolean;
Begin
Repeat
Write('Введите четырехзначное число: ');
Readln(x);
Until (x>999) and (x<10000);
If (x div 1000)+(x div 100 mod 10)=(x div 10 mod 10)+(x mod 10) Then
f:=True;
Writeln(f);
Readln
End.