Опубликовано 22.08.2017 по предмету Информатика от Гость >> <<

Напишите программу,которая находит сумму цифр введённого пятизначного натурального числа

Ответ оставил Гость

Var A,S,k:integer;
begin
S:=0;
write(Введите A = );Readln(A); 
 while (A>0) do    begin   
          If (k<5) then begin     
               k:=k+1;     S:=S+A mod 10;     A:=A div 10;     
               end   
          else begin
                  k:=100;A:=0;
                end; 
           end;  
f(k=5) then 
     write(S) 
else
      write(не пятизнач); 
end.