Написать программку, которая будет определять сколько чисел делиться на 3 без

Спасибо.А чтр означает sum?

var count, n, k, i: integer;begin count := 0; write('Введите n и k:'); read(n, k); for i := n to k do if(i mod 3 = 0) then count := count + 1; write(count);end.

count - количество чисел

Спасибо

Знаменито, что "счастливый билет" в городском транспорте - это билет где сумма первых трёх и последних трёх цифр совпадает. Реализовать метод, который дозволяет по введенному номеру билета, найти - счастливый он либо нет.Пример:Ввод: 026008 Вывод: счастливыйВвод: 126125 Вывод: несчастный

Вышло что-то из того, что я выложила?

var num: integer;begin read(num); if((num div 100000 + num div 10000 mod 10 + num div 1000 mod 10) = (num div 100 mod 10 + num div 10 mod 10 + num mod 10)) then write('счастливый') else write('несчастливый');end.