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

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

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

Код к задаче: «Найти в числе число единиц, число десятков, сумму цифр, произведение цифр - 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));
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.

8   голосов, оценка 4.250 из 5


СДЕЛАЙТЕ РЕПОСТ