Программа проверки счастливый ли билет - PascalABC.NET
Формулировка задачи:
Проверьте пожалуйста программу на правильность. Определяет счастливый ли трамвайный билет.
Решение задачи: «Программа проверки счастливый ли билет»
textual
Листинг программы
program lucky; var x1,x2,x3,y1,y2,y3,s1,s2:integer; begin writeln('Введите три первые цифры на билете'); Readln(x1,x2,x3); Writeln('Введите три последние цифры на билете'); readln(y1,y2,y3); s1:=x1+x2+x3; s2:=y1+y2+y3; Write('Число на билетике: ',x1,x2,x3,y1,y2,y3); writeln; If s1=s2 then writeln('Этот билетик счастливый') else writeln('К сожаленью, данный билетик не счастливый'); end.
Объяснение кода листинга программы
- Программа объявляет переменные
x1
,x2
,x3
,y1
,y2
,y3
,s1
,s2
типаinteger
. - Пользователю предлагается ввести три первые цифры на билете.
- Пользователю предлагается ввести три последние цифры на билете.
- Переменная
s1
получает сумму трех первых цифр на билете. - Переменная
s2
получает сумму трех последних цифр на билете. - Выводится строка с числом на билетике.
- Если
s1
равноs2
, то выводится сообщение, что билетик счастливый. - Если
s1
не равноs2
, то выводится сообщение, что билетик не счастливый.