Составьте программу на вычисление суммы числа, цикл с предусловием
юля2713
2
19.07.2019 03:30
0
Другие вопросы по теме Информатика
matveiruzkovjoping56
27.04.2020 10:48
nastyabro123
27.04.2020 10:48
Juliaok12345
27.04.2020 10:48
dazz4
27.04.2020 10:48
dekok584p08crj
27.04.2020 10:49
valeriybalybin
27.04.2020 10:49
kama1ezeGggggg
27.04.2020 10:49
rast052
27.04.2020 10:49
sadzim
27.04.2020 10:50
Популярные вопросы
- Визнач площу перерізу циліндра площиною, паралельної осі циліндра, що знаходиться...
1 - Vvмvv слало в автобусе!б) В автобусе ехали 36 детей, что в 4 раза больше,...
3 - 1)Если значение аргумента — −2, то функция имеет значение...
3 - Охотничья лексика это. ОТВЕТЬТЕ ЧТО ТАКОЕ ОХОТНИЧЬЯ ЛЕКСиКА...
1 - Вантажівка рухалася 4 год зі швидкістю 62,5 км/год, потім 2,5 год – зі швидкістю...
3 - Из колоды, в которой 52 карты, взяты 4 карты. Найти вероятность того, что...
3 - Уявіть, що Ви перебуваєте у Львові. Про що Ви б розпитали львів’ян? Що вони...
3 - Умоляю При якому значенні а проходить через початок координат графік рівняння...
2 - Словообразовательный разбор слова грибочек напишите...
2 - C) Предложите путь решения одной из этих проблем.номоохон...
2
s, n: integer;
begin
readln(n);
s:=0;
while n > 0 do
begin
s:=s + n mod 10;
n:=n div 10;
end;
writeln(s);
end.
uses crt;
var a,b : integer;
begin
readln(b);
a:=0;
while b > 0 do
begin
a:=a + b mod 10;
b:=b div 10;
end:
writeln('ответ',a );
end