По введенному номеру билета определить, является ли билет счастливым.

[veter_s_morya]

Задали простую задачу(на первый взгляд), но незнаю как ее написать.
Задача:
Счастливым билетом называется билет, у которого сумма первых трех цифр номера равна сумме последних трех цифр (билет имеет шестизначный номер). По введенному номеру билета определить, является ли билет счастливым.
Решить используя if и else!(т.к изучаю еще только азы).

[Stilet]

Идеи есть? Как думаешь решать?

[evg_m]

a:=123456; //число для проверки
x:=a div 100000; //первая цифра
a:=a mod 100000; //последние пять цифр
осталось получить все цифры посчитать и прверить (if)

[Трофимов Александр]

programm my;
uses crt;
var
bil,i1,i2,i3,j1,j2,j3:integer;
begin
clrscr;
write('Введите номер билета);
readln (bil);
if (bil>999999) or (bil<100000) then writeln('Введён неправильный номер')
else begin
i1:=bil div 100000;// сотни тысяч
i2:=(bil - i1*100000) div 10000;//десятки тысяч без сотен тысяч
i3:=(bil - i1*100000 - i2*10000) div 1000;//тысячи без сотен и десятков тысяч
j1:=(bil - i1*100000 - i2*10000 - i3*1000) div 100;// и т.д.
j2:=(bil - i1*100000 - i2*10000 - i3*1000 - j1*100) div 10;
j3:=bil - i1*100000 - i2*10000 - i3*1000 - j1*100 - j2*10;
if (i1+i2+i3)=(j1+j2+j3) then writeln('Вы выиграли')
else writeln('Вы проиграли');
end;
readkey;
end.

Примерно так можно, но проверить не на чем.

[veter_s_morya]

Трофимов Александ, твой способ отпадает, т.к должна быть одна....вобщем не так. Нашел подсказку:
Для разложения целого числа на цифры удобно применять операции: MOD и DIV. Например, если дано трехзначное число "N" ( "N" соответствует "X1X2X3" ), то цифры: X1X2X3, составляющие это число определяются блоком операторов:
X3:= N mod 10; N:= N div 10;
X2:= N mod 10; N:= N div 10; X1:= N;
Но всеравно не доходит!

[puporev]

X3:= N mod 10; N:= N div 10;
X2:= N mod 10; N:= N div 10; X1:= N;
Но всеравно не доходит!

. . . . . 1 цифра . . . . . . . 2 цифра . . . . . . .3 цифра
if (N div 100 000+(N div 10 000 mod 10)+(N div 1000 mod 10))=
. . . . . 4 цифра . . . . . . . 5цифра . . . . 6 цифра
=((N div 100 mod 10)+(N div 10 mod 10)+(N mod 10)) нужно писать в одну строку
then writeln ('Yes!);

[Stilet]

Преврати число в строку, разбей на две половины и сравни их.
НА форуме где то было уже такое.

[Карась]

мод и див это жёстко....

Var i, L, R : Integer;
    S : String;

Begin
Readln(S);
L := 0; R := 0;
For i := 1 To 6 Do
  Begin
    If i > 3 Then
      Begin
        R := R + StrToInt(S[i]);
        Continue;
      End;
    L := L + StrToInt(S[i])
  End;
If L = R Then Writeln('Yes') Else Writeln('No');
Readln;
End.

[Stilet]

StrToInt

В Паскале??? )))

[Карась]

Не перевариваю этот "синий экранчик"
Консолька Делфи.

Тогда Мод и Див.....