Question

Задача в Pasckal. Срочняк спасайте)

Ввести (n)-значное число, разделить его на составляющие его цифры, найти сумму этих цифр и найти максимальное и минимальное значение

Answer 1

Pascal

var

 s:string;

 i, Amin, Amax, Asum : integer;

begin

 Amin := 9;

 Amax := 0;

 Asum := 0;

 readln(s);

 for i:= 1 to length(s) do begin

   if strtoint(s[i]) > Amax then Amax := strtoint(s[i]);

   if strtoint(s[i]) < Amin then Amin := strtoint(s[i]);    

   inc(ASum, strtoint(s[i]));

 end;

 writeln('Sum=', Asum);  

 writeln('Max=', Amax);

 writeln('Min=', Amin);  

end.