Есть ответ 👍

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

279
293
Посмотреть ответы 2

Ответы на вопрос:


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.

Б) методов и средств преобразования информации

Популярно: Информатика