< >

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

Ответы

Ответ дал: denisov7
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.

Похожие вопросы
Русский язык
2 года назад
Выпишите действительные причастия,распределяя их на две группы:1)причастия в форме настоящего времени;2)причастия в форме прошедшего времени.Выделите формообразовательные суффиксы причастий.
Русский язык
2 года назад
Особенности произношения слова циркуль?
Математика
7 лет назад
Помогите сделать 240№ надо решить с помощью свойств. Надо только под решить а) и б)
Математика
7 лет назад
в числе 5131592653549793 зачеркните 7 цифр так чтобы осталось как можно меньшее число
Химия
10 лет назад
Найдите молекулярную формулу углеводорода, массовая доля углерода в котором составляет 81,8% . Относительная плотность вещества по азоту равна 1,57
Алгебра
10 лет назад
скорость автомобиля на трассе оказалась на 50% больше скорости этого автомобиля по городу.какое время затрачивает автомобиль на трассе на преодоление расстояния, на которое в городе у него уходит 1,2
Химия
10 лет назад
№1 запишите уравнения реакций обмена между растворами: а) хлорида кальция и фосфата калия; б) серной кислоты и гидроксида железа (III); в) фосфорной кислоты и хлорида бария. №2 какие из реакций
Геометрия
10 лет назад
уравнение окружности с центром С  (-4,6)