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

→‎Pascal: поправил комментарий
м (Дoбaвлeнa Категория:Программирование с помощью HotCat)
(→‎Pascal: поправил комментарий)
<source lang="pascal">
Program bilet;
Var s,a,b,v,z,i:integer; {s-количество счастливых билетов, a-сумма последних трех чисел, b-сумма последнихпервых трех чисел}
Begin
s:=1; {учитываем билет с номером 000000}
Анонимный участник