1. Дано трехзначное число. Найти

число единиц в нем

число десятков в нем

сумму его цифр

произведение его цифр

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

Var n, n1, n2, n3: integer;

begin write ('Введите трехзначное число: '); readln (n); if not ((n > = 100) and (n < = 999)) then writeln ('Не верный вводд числа') else begin n1 : = n div 100; n2 : = n div 10 mod 10; n3 : = n mod 10; writeln ('1 - ', n3, n2, n1); writeln ('2 - ', n3, n1, n2); writeln ('3 - ', n2, n1, n3); end; end.