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