Сумма цифр. Вводится целое положительное число а<=10^9. Найдите сумму цифр введенного числа.
Нужно написать программы на языке Паскаль. 9 класс. Прошу, помогите.
Ответы на вопрос
Ответил allangarsk
0
var i,n,sum:integer; s,d:string; a:longint;
begin
writeln('Введите целое положительное число а<=10^9');
Readln(a);
s:= a.ToString();
n:= length(s);
for i:=1 to n do begin
d:= copy(s,i,1);
sum:= sum + strtoint(d);
end;
write('sum = ',sum);
end.
begin
writeln('Введите целое положительное число а<=10^9');
Readln(a);
s:= a.ToString();
n:= length(s);
for i:=1 to n do begin
d:= copy(s,i,1);
sum:= sum + strtoint(d);
end;
write('sum = ',sum);
end.
Новые вопросы
Русский язык,
2 года назад
Русский язык,
2 года назад
Химия,
8 лет назад
Математика,
8 лет назад
География,
9 лет назад