Дано четырехзначное число. определить равна ли сумма первых двух его цифр сумме двух его последних цифр. В паскале

Question

Информатика

Степан

4 октября, 10:15

Дано четырехзначное число. определить равна ли сумма первых двух его цифр сумме двух его последних цифр. В паскале

+2

Ответы (1)

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

Тимаха · Answer 1

Var N, a, b, c, d:integer;

begin

Readln (N) ;

a:=N div 1000;

b: = (N div 100) mod 10;

c: = (N div 10) mod 10;

d:=N mod 10;

If a+b=c+d then

Writeln ('Сумма первых двух цифр равна сумме последних двух цифер')

else

Writeln ('Сумма первых двух цифр не равна сумме последних двух цифер') ;

end.