(паскаль) составить программу определяющую является ли шестизначный номер билета счастливым ( у которого сумма первых трех цифр равна сумме трех последних цифр)

220

342

Посмотреть ответы 2

Ответы на вопрос:

KILOBAIT

Информатика

4,4(37 оценок)

Var a,s: longint; begin write('введите шестизначное число: '); readln(a); s: =a mod 10; a: =a div 10; s: =s+a mod 10; a: =a div 10; s: =s+a mod 10; a: =a div 10; a: =(a div 100)+(a div 10) mod 10 + (a mod 10); if a< > s then write('билет не является счастливым') else writeln('счастливый ! ') end.