Задание:
Помогите решить! 1) Дано натуральное трехзначное число N. Определить сумму и произведение его цифр.2) Дано натуральное трехзначное число N. Найдите число, образованное перестановкой цифр исходного числа в обратном порядке.
Решение:
1) var a, b, c, d: integer; begin readln (a); b: =a div 100; { сотни } c: =(a mod 100) div 10; { десятки } d: =a mod 10; { единицы } writeln ('Сумма цифр равна: ', b+c+d); end. 2) var a, b, c, d, p: integer; begin readln (a); b: =a div 100; { сотни } c: =(a mod 100) div 10; { десятки } d: =a mod 10; { единицы } p: =d*100+c*10+b; writeln ('Наоборот: ', p); end. 3) var a, b, c, d, e: integer; begin readln (a); e: =a div 1000; { тысячи } b: =(a div 100) mod 10; { сотни } c: =(a mod 100) div 10; { десятки } d: =a mod 10; { единицы } writeln ('Сумма: ', e+b+c+d); writeln ('Произведение: ', e*b*c*d); end.
Знаете другой ответ?