Поделитесь своими знаниями, ответьте на вопрос:
Автобусный билет имеет номер из четырёх цифр. Билет считают счастливым, если сумма двух первых цифр билета равна сумме двух последних цифр. Требуется составить программу определения билета, имеющего счастливый номер на div и
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.
Объяснение: