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

Подробно и через mod и div)

Question

Информатика

Емельяныч

25 августа, 10:19

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

Подробно и через mod и div)

+1

Ответы (1)

Знаете ответ на вопрос?

Любовь · Answer 1

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.

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

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

Подробно и через mod и div)