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

Question

Информатика

Флориана

13 августа, 22:06

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

+5

Ответы (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.