Дано 4-х значное число, найти что больше произведение сотен и десятков или произведение...

Question

Дано 4-х значное число,
найти что больше произведение сотен и десятков
или произведение тысяч и единиц

Comments

помогите плиз

Answer 1

Var n:integer; 
pro, sum:integer; 
begin 
write('Введите число: '); readln(n); 
pro:=1; sum:=0; 
while n>0 do 
begin 
pro:=pro*(n mod 10); 
sum:=sum+(n mod 10); 
n:=n div 10; 
end; 
writeln('Произведение = ', pro); 
writeln('Сумма = ', sum); 
end.

Comments

Вместо суммы напиши произведение