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

Question

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

Answer 1

var

 sum, n, k, i: integer;

begin

 sum := 0;

 write('Введите n и k:');

 read(n, k);

 for i := n to k do

   if(i mod 3 = 0) then

     sum := sum + 1;

 write(sum);

end.

Comments

Спасибо.А чтр значит 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.