Определить, равна ли сумма двух первых цифр заданного четырехзначного числа сумме двух его последних цифр
Определить, равна ли сумма двух первых цифр заданного четырехзначного числа сумме двух его последних цифр
Гость
Ответ(ы) на вопрос:
Гостьvar
str:string;
begin
readln(str);
if ((ord(str[1])+ord(str[2])) = (ord(str[3]) + ord(str[4]))) then write('Сумма равна')
else write('Сумма неравна');
end.
Гость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.
Не нашли ответ?
Похожие вопросы