Нужно составить программу, которая находит сколько цифр в числе и сумму кратных 3 - Turbo Pascal
Формулировка задачи:
программа которая находит сколько цифр в числе и сумму кратных 3. При этом не используя function.
Решение задачи: «Нужно составить программу, которая находит сколько цифр в числе и сумму кратных 3»
textual
Листинг программы
Read(n); repeat Inc(k); t:=n mod 10; if t mod 3=0 then s:=s+t; n:=n div 10; until n=0; WriteLn('Цифр: ',k,' Сумма кратных 3: ',s);
Объяснение кода листинга программы
В этом коде выполняются следующие действия:
- Число n считывается с помощью функции Read(n).
- Затем происходит цикл по цифрам числа n от большего разряда к меньшему.
- Переменная k используется для подсчёта количества цифр.
- Переменная t содержит текущую цифру числа n.
- Если значение переменной t кратно 3, то она добавляется к переменной s (сумма).
- Затем число n делится на 10 и происходит переход к следующей цифре.
- После окончания цикла выводится количество цифр (k) и сумма кратных 3 (s).