1.бумага.2принтер.3.колонки.4.Дисплей
лишнее а
Это загадка. Ответ: коньки.
Вроде так.
Var A,S:longint;
Begin
Write('Введите шестизначное число: ');ReadLn(A);
S:=A mod 10;
A:=A div 10;
S:=S+A mod 10;
A:=A div 10;
S:=S+A mod 10;
A:=A div 10;
A:=(A div 100)+(A div 10) mod 10 + (A mod 10);
if A<>S then Write('Билет не является счастливым')
else WriteLn('Счастливый билет!!!')
End.
Вот 999 в двоичное система. Держи: 1111100111