Реализации алгоритмов/Подсчёт счастливых билетов: различия между версиями

Содержимое удалено Содержимое добавлено
→‎Pascal: поправил комментарий
Строка 45:
<source lang="pascal">
Program bilet;
Var s,a,b,v,z,i:integer; {s-количество счастливых билетов, a-сумма последних трех чисел, b-сумма последнихпервых трех чисел}
Begin
s:=1; {учитываем билет с номером 000000}