Дано четырёхзначное число. Верно ли, что сумма двух крайних цифр равна сумме двух средних? Паскаль. Подробно и через mod и div)
Answers & Comments
lasept
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.
Answers & Comments
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.