Question

Дано:четырёхзначное число. Найти:сумму его цифр,произведение

Answer 1

Program tz;
var
a,b,c:integer;
i:byte;
begin
writeln('vvedite 4x znachnoe chislo');
readln(a);
b:=1;
c:=0;
for i:=1 to 4 do begin
    b:=b*(a mod 10);
    a:=a div 10;
    c:=c+(a mod 10);
end;
writeln('proizvedenie = ',b);
writeln('summa = ',c);
readln;
end.

Answer 2

Для нахождения суммы цифр и произведения четырёхзначного числа, вам нужно разложить это число на цифры и выполнить соответствующие операции.

Пусть дано четырёхзначное число, например, 1234.

1. Найдем сумму его цифр: Сумма = 1 + 2 + 3 + 4 = 10

2. Найдем произведение его цифр: Произведение = 1 * 2 * 3 * 4 = 24

Итак, сумма цифр числа 1234 равна 10, а произведение его цифр равно 24.