Определить, является ли трамвайный билет счастливым? Счастливым будем считать такое число из шести цифр, в котором сумма левых трех цифр равна сумме правых трех цифр. паскаль

Определить, является ли трамвайный билет счастливым? Счастливым будем считать такое число из шести цифр, в котором сумма левых трех цифр равна сумме правых трех цифр. паскаль
Гость
Ответ(ы) на вопрос:
Гость
var n,n1,n2,s1,s2:integer; begin write('n = '); readln(n); n1:=n div 1000; n2:=n mod 1000; s1:=n1 div 100+(n1 div 10 mod 10)+n1 mod 10; s2:=n2 div 100+(n2 div 10 mod 10)+n2 mod 10; if s1=s2 then writeln('Билет счастливый')  else writeln('Билет не счастливый'); end. Пример 1: n = 156309 Билет счастливый Пример 2: n = 762453 Билет не счастливый
Гость
program lucky; var n,l,r: integer; begin writeln('введите номер билета'); readln(n); l := (n div 100000) + (n mod 100000 div 10000) + (n mod 100000 mod 10000 div 1000); r := (n mod 100000 mod 10000 mod 1000 div 100) +(n mod 100000 mod 10000 mod 1000 mod 100 div 10) + (n mod 100000 mod 10000 mod 1000 mod 100 mod 10); if l == r then writeln('ваш билет счастливый') else writeln('ваш билет не счастливый'); end.
Не нашли ответ?
Ответить на вопрос
Похожие вопросы