Определить, равна ли сумма двух первых цифр заданного четырехзначного числа сумме двух его последних цифр

Question

Информатика

Лейла

10 апреля, 08:50

Определить, равна ли сумма двух первых цифр заданного четырехзначного числа сумме двух его последних цифр

+2

Ответы (2)

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

Настуня · Answer 1

Uses crt;

var x:integer;

begin

write ('Введи число:') ;

readln (x) ;

if (x>=1000) and (x<=9999) then

if (x div 1000) + (x div 100 mod 10) = (x mod 10) + (x mod 100 div 10) then

writeln ('yes')

else writeln ('no')

else writeln ('error') ;

end.

Себастьян · Answer 2

var

str:string;

begin

readln (str) ;

if ((ord (str[1]) + ord (str[2])) = (ord (str[3]) + ord (str[4]))) then write ('Сумма равна')

else write ('Сумма неравна') ;

end.