Опубликовано 10.06.2017 по предмету Информатика от Гость >> <<

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

Ответ оставил Гость

Var unitsCount,
     tensCount,
     hundredsCount,
     number : integer;
begin
readln(number);
unitsCount := number mod 10;
tensCount := (number div 10) mod 10;
hundredsCount := number div 100;
writeln(Count of units: , unitsCount);
writeln(Count of tens: , tensCount);
writeln(Count of hundreds: , hundredsCount);
writeln(Sum of digits: , unitsCount + tensCount + hundredsCount);
writeln(Multiplication of digits: , unitsCount * tensCount * hundredsCount);
end.