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

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

Question

Информатика

Михаилушка

6 апреля, 05:50

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

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

+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.

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

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

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