Даны билеты с номерами от 0001 до 9999, найти кол-во счастливых билетов
Даны билеты с номерами от 0001 до 9999, найти кол-во счастливых билетов
Гость
Ответ(ы) на вопрос:
Гостьvar n, i: integer;
begin
n := 0;
for i := 1 to 9999 do
if i mod 10 + i div 10 mod 10 = i div 100 mod 10 + i div 1000 then
n := n + 1;
writeln(n);
end.
Не нашли ответ?
Похожие вопросы