Выяснить, равна сумма двух первых цифр заданного четырехзначного числа сумме двух его последних цифр - 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.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д