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

Question

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

Answer 1

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.