напишите программу,которая находит сумму цифр введённого пятизначного натурального числа
Answers & Comments
0ri
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.
2 votes Thanks 1
rusich34
спасибо,но там была ошибка так что только 4
Answers & Comments
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.