Билет называют счастливым если в его номере сумма первых трех цифр равна сумме последних трех. Посчитать число тех счасливых билетов, у которой сумма цифр равна 13. Номера билета от 000000 до 999999. Паскаль. Нужен Mod и Div
Билет называют счастливым если в его номере сумма первых трех цифр равна сумме последних трех. Посчитать число тех счасливых билетов, у которой сумма цифр равна 13. Номера билета от 000000 до 999999. Паскаль. Нужен Mod и Div
Не можешь разобраться в этой теме?
Обратись за помощью к экспертам
Гарантированные бесплатные доработки в течение 1 года
Быстрое выполнение от 2 часов
Проверка работы на плагиат
Поможем написать учебную работу
program HappyTicketsCount;
var
ticket, sum, count: integer;
begin
count := 0;
for ticket := 0 to 999999 do
if sum = 0 thenbegin
sum := (ticket div 100000) mod 10 + (ticket div 10000) mod 10 + (ticket div 1000) mod 10 -
(ticket div 100) mod 10 - (ticket div 10) mod 10 - ticket mod 10;
count := count + 1;
end;
writeln('Number of happy tickets with sum of digits equal to 13: ', count);
end.