Предмет: Информатика,
автор: xStaSx
составить программу на паскале
Дано натуральное число,найти сумму цифр этого числа!
Ответы
Автор ответа:
0
Program Program1;
var
i,sum,n,code:integer;
s:string;
begin
write('Введите натуральноее число: ');
readln(s);
sum:=0;
for i := 1 to Length(s) do
begin
Val(s[i], n, code);
sum:=sum + n;
end;
writeln('Сумма цифр: ', sum)
end.
Интересные вопросы
Предмет: Қазақ тiлi,
автор: almazdilara
Предмет: Физика,
автор: akela45
Предмет: Биология,
автор: pvov2805
Предмет: Обществознание,
автор: Аделайн
Предмет: Физика,
автор: balkibekov