Question

Шестизначный билет для проезда в любом транспортном средстве называется «счастливым по-ленинградски» , если сумма первых трёх его цифр равна сумме трёх последних его цифр. определить, является ли билет с введённым с клавиатуры номером «счастливым по-ленинградски» . исходные данные: в первой строке вводится номер билета (6 цифр) . результат работы программы: во второй строке вывести на экран текст «билет счастливый» , либо «билет не является счастливым». написать программу, я ее примерно написала, но не работает.

Answer 1

Вариант 1
var s: string;
begin
  read(s);
  if ord(s[1]) + ord(s[2]) + ord(s[3]) = ord(s[4]) + ord(s[5]) + ord(s[6])
  then writeln('Билет счастливый')
  else writeln('Билет не является счастливым');
end.
Вариант 2
var n: integer;
begin
  read(n);
  if n div 100000 + n div 10000 mod 10 + n div 1000 mod 10 = n div 100 mod 10 + n div 10 mod 10 + n mod 10
  then writeln('Билет счастливый')
  else writeln('Билет не является счастливым');
end.

Answer 2

Вариант 3:
Function Sum(a : Integer) : Byte;
Begin
  Sum:=a div 100 + a div 10 mod 10 + a mod 10;
end;
Var n : Integer;
Begin
  Repeat
    Readln(n);
  Until (n>99999) and (n<=999999);
  If Sum(n div 1000)=Sum(n mod 1000) then Writeln('Билет счастливый')
  else Writeln('Билет не счастливый')
end.