1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
program biletik;
var
a: array [1..6] of integer;
i,b: integer;
begin
writeln('Введите номер билетика');
readln(b);
if (b<1000000) and (b>99999) then
begin
for i:=1 to 6 do
begin
a[i]:=b mod 10;
b:=b div 10;
end;
if (a[1]+a[2]+a[3]=a[4]+a[5]+a[6]) then
writeln('Билетик счастливый')
else
writeln('Билетик несчастливый');
end
else writeln('Номер должен быть шестизначным');
end.
Объяснение:
