Question

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

Answer 1

var a:integer;
begin
write('Введите трёхзначное число: ');
readln(a);
writeln('Число единиц в числе ',a, '  равно: ',abs (a mod 10));
writeln('Число десятков в  числе ',a, '  равно: ',abs (a mod 100 div 10));
writeln('Сумма цифр числа ',a, ' равна: ', abs (a div 100) + abs (a mod 100
div 10) + abs (a mod 10));
writeln('Произведение цифр числа ',a, ' равно: ', abs (a div 100) * abs (a
mod 100 div 10) * abs (a mod 10))
end.