Составить программу на паскале дано натуральное число,найти сумму цифр этого числа!
serbakovasvetas
2
25.03.2019 08:30
0
Другие вопросы по теме Информатика
Askmay
21.05.2019 08:50
Bulmeshka
21.05.2019 08:50
karinkaloseva2003
21.05.2019 08:50
jimitapark
21.05.2019 08:50
вероника1046
21.05.2019 08:50
annasmaylick
30.06.2019 12:40
спасибо60
18.05.2020 19:18
vladlena24
19.08.2019 19:20
allonso
19.08.2019 19:10
Популярные вопросы
- Решить! я на уроке не был в пятницу и на понимаю тему! ! объясните...
3 - 55 ! написать сочинение (эссе) на казахском языке. тема: уақыт...
1 - Сочинение как я провел лето побольше местоимений 7-10 предложений...
2 - За 9 часов по течению реки теплоход проходит тот же путь,что за...
2 - Какой из животных может съесть волка...
2 - Найдите сведения об одном из известных путешественников эпохи...
3 - Найдите наименьшее общее кратное чисел: а) 45 и135 б) 34 и170...
3 - Put the verbs in brackets into the present simple tense. 1) (to...
1 - Сколько различных пятизначных чисел можно записать цифрами 3 и...
2 - Скакой силой взаимодействуют два точечных заряда 5 и 10нкл , находящиеся...
2
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.