Дано 4-х значное число,

найти что больше произведение сотен и десятков

или произведение тысяч и единиц

Question

Информатика

Моника

2 ноября, 06:42

Дано 4-х значное число,

найти что больше произведение сотен и десятков

или произведение тысяч и единиц

+5

Ответы (1)

Знаете ответ на вопрос?

Розалинда · 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.

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

Дано 4-х значное число,

найти что больше произведение сотен и десятков

или произведение тысяч и единиц