Задано трёхзначное число.составьте программу, с помощью которой определите, равняется ли в нём сумма крайних цифр и средняя цифра.

Вот на Паскале:

program 1;

var n, a, b, c, k: integer;

begin

readln (n);

a:=n mod 10;

k:=(n-a)/10;

b:=k mod 10;

c:=n div 100;

if (a+c)=b then writeln (‘Да, равняется’)

else writeln (’Нет, не равняется’);

end.

Пояснение:

n — трёхзначное число, вводимое с клавиатуры;

а — последняя цифра, равна остатку от деления числа на 10;

b — цифра в середине; для её нахождения можно получить k — число, записанное первыми двумя цифрами числа n — и найти остаток от деления k на 10;

с — первая цифра, целая часть от деления n на 100;

Если сумма крайних цифр (первой и третьей) с + а (или а + с, без разницы)  равна b, то программа напишет «Да», если не равна — «Нет» (Это задаётся циклом «if...then...else».