Нужно составить программу, которая находит сколько цифр в числе и сумму кратных 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);

Объяснение кода листинга программы

В этом коде выполняются следующие действия:

  1. Число n считывается с помощью функции Read(n).
  2. Затем происходит цикл по цифрам числа n от большего разряда к меньшему.
  3. Переменная k используется для подсчёта количества цифр.
  4. Переменная t содержит текущую цифру числа n.
  5. Если значение переменной t кратно 3, то она добавляется к переменной s (сумма).
  6. Затем число n делится на 10 и происходит переход к следующей цифре.
  7. После окончания цикла выводится количество цифр (k) и сумма кратных 3 (s).

Оцени полезность:

6   голосов , оценка 3.833 из 5
Похожие ответы