Question

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

Answer 1

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
Билет не счастливый

Answer 2

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.

Answer 3

Для определения, является ли трамвайный билет счастливым в соответствии с вашими правилами, вы можете использовать следующий код на языке Pascal:

pascalCopy code
program IsHappyTicket;
var
  ticketNumber, leftSum, rightSum, digit, i: integer;
begin
  // Введите номер трамвайного билета (шестизначное число)
  write('Введите номер трамвайного билета: ');
  readln(ticketNumber);

  // Инициализируем суммы для левых и правых трех цифр
  leftSum := 0;
  rightSum := 0;

  // Разделим номер билета на левые и правые тройки цифр
  for i := 1 to 6 do
  begin
    digit := ticketNumber mod 10;
    if i <= 3 then
      leftSum := leftSum + digit
    else
      rightSum := rightSum + digit;
    ticketNumber := ticketNumber div 10;
  end;

  // Проверяем, является ли билет счастливым
  if leftSum = rightSum then
    writeln('Этот билет счастливый!')
  else
    writeln('Этот билет не счастливый.');
end.

Вы вводите номер трамвайного билета, и программа проверяет, равны ли суммы левых и правых трех цифр. Если суммы равны, билет считается счастливым.