Дано четырёхзначное число. Верно ли, что сумма двух крайних цифр равна сумме двух средних? Паскаль.
Подробно и через mod и div)

Var n, a, b, c, d: integer;
begin
writeln(Введите четырёхзначное число);
readln(n);
a:=n div 1000; {первая цифра}
b:=(n div 100) mod 10; {вторая цифра}
c:=(n div 10) mod 10; {третья цифра}
d:=n mod 10;{четвёртая цифра}
if (a+d) = (b+c) then write(верно)
else write(неверно);
end.

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.