Даны билеты с номерами от 0001 до 9999, найти кол-во счастливых билетов

Question

Информатика

Марлен

23 февраля, 03:29

Даны билеты с номерами от 0001 до 9999, найти кол-во счастливых билетов

+1

Ответы (1)

Знаете ответ на вопрос?

Изида · Answer 1

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.