Дано целое число. Заранее неизвестно, сколько в нём цифр. Найдите сумму цифр этого числа, а также наибольшую и наименьшую его цифры.
Используйте while или repeat.
Ответы
Ответ дал:
1
Ответ:
var a,s,min,max: integer;
begin
readln(a);
min:= a mod 10;
max:= a mod 10;
while (a>0) do
begin
s:=s+a mod 10;
if (a mod 10) < min then min:=a mod 10;
if (a mod 10) > max then max:=a mod 10;
a := a div 10;
end;
writeln('Наибольшая цифра: ',max);
writeln('Наименьшая цифра: ',min);
writeln('Сумма цифр: ',s);
end.
llwualpqu:
Спасибо большое!!!
Вас заинтересует
4 месяца назад
5 месяцев назад
5 месяцев назад
2 года назад
2 года назад
7 лет назад