Ответ:
var a,s,min,max: integer;
begin
readln(a);
min:= a mod 10;
max:= a mod 10;
while (a>0) do
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.
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
Ответ:
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.