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