Выяснить, равна сумма двух первых цифр заданного четырехзначного числа сумме двух его последних цифр - Pascal ABC
Формулировка задачи:
Вывести на экран 1 или 0 в зависимости от того, равна сумма двух первых цифр заданного четырехзначного числа сумме двух его последних цифр.
Решение задачи: «Выяснить, равна сумма двух первых цифр заданного четырехзначного числа сумме двух его последних цифр»
textual
Листинг программы
var i:integer; begin readln(i); writeln(ord((i div 1000)+(i mod 1000 div 100)=((i mod 100) div 10)+(i mod 10))); end.