Помогите написать программу)))

Задано трехзначное число, определить:

1) сумму цифр этого числа;

2) произведение;

3) минимальную цифру;

4) максимальную цифру этого числа.

Question

Информатика

Каллимах

1 апреля, 22:17

Помогите написать программу)))

Задано трехзначное число, определить:

1) сумму цифр этого числа;

2) произведение;

3) минимальную цифру;

4) максимальную цифру этого числа.

+3

Ответы (1)

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

Анночка · Answer 1

Uses crt;

var a, b, c, x, max, min, sum, pr: integer;

begin

write ('Введите число: ') ;

readln (x) ;

a: = x div 100;

b: = x div 10 mod 10;

c: = x mod 10;

sum:=a+b+c;

pr:=a*b*c;

if a>b then begin

min:=b;

max:=a;

end

else begin

max:=b;

min:=a;

end;

if min>c then min:=c;

if max
writeln ('Сумма цифр числа: ', sum) ;

writeln ('Произведение цифр числа: ', pr) ;

writeln ('Максимальная цифра: ', max) ;

writeln ('Минимальная цифра: ', min) ;

end.

Помогите написать программу)))Задано трехзначное число, определить:1) сумму цифр этого числа;2) произведение;3) минимальную цифру;4) максимальную цифру этого числа.