1.Дано трехзначное число. Найти
число единиц в нем
число десятков в нем
сумму его цифр
произведение его цифр
2.Дано трехзначное число. Найти число. Найти число, полученное при прочтении его цифр справа налево
число единиц в нем
число десятков в нем
сумму его цифр
произведение его цифр
2.Дано трехзначное число. Найти число. Найти число, полученное при прочтении его цифр справа налево
More Questions From This User See All
Answers & Comments
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.