Задание:
Определить, равна ли сумма двух первых цифр заданного четырехзначного числа сумме двух его последних цифр
Решение:
varstr: string; beginreadln (str); if (ord (str[1])+ord (str[2])=(ord (str[3])+ord (str[4]) then write ('Сумма равна') else write ('Сумма неравна'); end.
Знаете другой ответ?