составить программу на паскале

Дано натуральное число, найти сумму цифр этого числа!

Question

Информатика

Маринка

18 августа, 09:42

составить программу на паскале

Дано натуральное число, найти сумму цифр этого числа!

+5

Ответы (1)

Знаете ответ?

Ларуся · Answer 1

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.

составить программу на паскалеДано натуральное число, найти сумму цифр этого числа!

составить программу на паскале

Дано натуральное число, найти сумму цифр этого числа!