Помогите решить!!! 1)Дано натуральное трехзначное число N. ...
Помогите решить!!!
1)Дано натуральное трехзначное число N. Определить сумму и произведение его цифр.
2)Дано натуральное трехзначное число N. Найдите число, образованное перестановкой цифр исходного числа в обратном порядке.
3)Дано натуральное четырехзначное число N. Определить сумму и произведение его цифр.
Есть ответ
12.12.2022
261
Ответ
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.
Если вы нашли правильное решение, вы можете поблагодарить нас начиная с 10 рублей.
Просто нажмите на кнопку "Подарить".
Просто нажмите на кнопку "Подарить".
12.12.2022
