Есть задача: Подсчитать количество “счастливых” шестизначных автобусных билетов, т. е. таких, в номерах которых сумма первых трех цифр равна сумме трех последних.
Необходимо написать программу в делфи на Pascal, используя при этом одномерный массив (или массивы).
Заранее спасибо:3

Предыдущий
вопрос Следующий
вопрос

Конечно, вот пример программы на Delphi для подсчета количества "счастливых" шестизначных автобусных билетов:

program CountLuckyTickets;
{$APPTYPE CONSOLE}
uses
SysUtils;
var
ticketCount: Integer;
function isLuckyTicket(ticket: Integer): Boolean;
var
digits: array[0..5] of Integer;
i, sum1, sum2: Integer;
begin
for i := 5 downto 0 do
begin
digits[i] := ticket mod 10;
ticket := ticket div 10;
end;
sum1 := 0;
sum2 := 0;
for i := 0 to 2 do
begin
sum1 := sum1 + digits[i];
sum2 := sum2 + digits[i + 3];
end;
Result := sum1 = sum2;
end;
begin
ticketCount := 0;
for ticket := 100000 to 999999 do
begin
if isLuckyTicket(ticket) then
Inc(ticketCount);
end;
Writeln('Количество "счастливых" шестизначных автобусных билетов: ', ticketCount);
end.

Эта программа подсчитывает количество "счастливых" шестизначных автобусных билетов, где сумма цифр первых трех цифр равна сумме цифр последних трех цифр.