Найти в числе число единиц, число десятков, сумму цифр, произведение цифр - Pascal ABC

Узнай цену своей работы

Формулировка задачи:

Дано трехзначное число.Найти: число единиц в нем , число десятков в нем , сумму его цифр , произведение его цифр

Решение задачи: «Найти в числе число единиц, число десятков, сумму цифр, произведение цифр»

textual
Листинг программы
Readln(n);  {100..999}
Writeln(n mod 10);
Writeln((n div 10) mod 10);
Writeln((n div 100)+((n div 10) mod 10)+(n mod 10));
Writeln((n div 100)*((n div 10) mod 10)*(n mod 10));

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

  1. Readln(n);  {100..999} - считываем число от пользователя в переменную n
  2. Writeln(n mod 10); - выводим остаток от деления числа n на 10
  3. Writeln((n div 10) mod 10); - выводим остаток от деления числа n на 10
  4. Writeln((n div 100)+((n div 10) mod 10)+(n mod 10)); - выводим сумму цифр числа n
  5. Writeln((n div 100)((n div 10) mod 10)(n mod 10)); - выводим произведение цифр числа n

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

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