Программа проверки счастливый ли билет - 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.

Объяснение кода листинга программы

  1. Программа объявляет переменные x1, x2, x3, y1, y2, y3, s1, s2 типа integer.
  2. Пользователю предлагается ввести три первые цифры на билете.
  3. Пользователю предлагается ввести три последние цифры на билете.
  4. Переменная s1 получает сумму трех первых цифр на билете.
  5. Переменная s2 получает сумму трех последних цифр на билете.
  6. Выводится строка с числом на билетике.
  7. Если s1 равно s2, то выводится сообщение, что билетик счастливый.
  8. Если s1 не равно s2, то выводится сообщение, что билетик не счастливый.

Оцени полезность:

5   голосов , оценка 4 из 5
Похожие ответы