01 3
езда вперед до определения препятствия
на расстоянии меньше 5 см
0
SO
1
Рис. 1
01
П
<
езда вперед 5 оборотов
30
3
Рис. 2
01
##
езда вперед до определения черной
ЛИНИИ
5
#

Question

Информатика: 01 3 езда вперед до определения препятствия на расстоянии меньше 5 см 0 SO 1 Рис. 1 01 П езда вперед 5 оборотов 30 3 Рис. 2 01 ## езда вперед до определения черной ЛИНИИ 5 #​

aliya111000 · Accepted Answer

Program Task;
Var a: Array of Integer;
n, b, c, i: Integer;
Begin
Write('Введите номер билета: №');
ReadLn(n);
b := n;
While b <> 0 Do
Begin
b := b Div 10;
c := c + 1;
End;
If (c < 1) Or (c > 6) Then
WriteLn('Неверный номер билета. Завершение программы.')
Else
Begin
SetLength(a, c);
b := n;
For i := c - 1 DownTo 0 Do
Begin
a[i] := b Mod 10;
b := b Div 10;
End;
If (a[0] + a[1] + a[2]) = (a[3] + a[4] + a[5]) Then
WriteLn('Билет "счастливый"!')
Else
WriteLn('Не повезло');
End;
ReadLn;
End.

01 3езда вперед до определения препятствияна расстоянии меньше 5 см0SO1Рис. 101П<езда вперед 5 оборотов303Рис. 201##езда вперед до определения чернойЛИНИИ5#​

MOGZ ответил

01 3
езда вперед до определения препятствия
на расстоянии меньше 5 см
0
SO
1
Рис. 1
01
П
<
езда вперед 5 оборотов
30
3
Рис. 2
01
##
езда вперед до определения черной
ЛИНИИ
5
#