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

Question

Информатика

Кирилл

22 июня, 04:13

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

+3

Ответы (2)

Знаете ответ?

Старемилиан · Answer 1

var

a, a1, a2, a3, a4:integer;

begin

readln (a) ;

a1:=a div 1000;

a2:=a div 100 mod 10;

a3:=a div 10 mod 10;

a4:=a mod 10;

if (a1+a2) = (a3+a4) then writeln ('Равена')

else

writeln ('Не равна') ;

end.

Колюша · Answer 2

var

a, a1, a2: integer;

begin

read (a) ;

a1 : = a div 1000 mod 10 + a div 100 mod 10;

a2 : = a div 10 mod 10 + a mod 10;

writeln (a1 = a2) ;

end.