tutotveti.ru
Предметы
Биология
Українська мова
Музыка
Французский язык
Физика
МХК
Обществознание
Психология
ОБЖ
Право
Беларуская мова
Литература
Химия
Українська література
Экономика
Немецкий язык
География
Информатика
Қазақ тiлi
Геометрия
Английский язык
Русский язык
Окружающий мир
Алгебра
История
Другие предметы
Видео-ответы
ПОИСК
Войти
Регистрация
Информатика
Написать программу которая считает
Написать программу которая считает количество цифр в числе и их сумму. паскаль. число вводится с клавиатуры
wwe555
1 11.08.2019 02:30
0
Ответы
Саляриум
04.10.2020 10:26
Для натуральных чисел:
var a,k,s:integer;
begin
write('a = ');
readln(a);
k:=0; s:=0;
while a>0 do
begin
k:=k+1;
s:=s+a mod 10;
a:=a div 10;
end;
writeln('k = ',k,', s = ',s);
end.
Пример:
a = 352186
k = 6, s = 25
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
nikgukasov
24.04.2019 04:27
Напишите 4 систем документирования...
максімаус
24.04.2019 05:50
Вкорзинке лежат семена редиски круглой и вытянутой. среди них 27 семян круглой редиски.сообещние о том, что из корзины достали одно семечко вытянутой редиски, несет 2 бита информации....
danilpostnyh
15.04.2020 13:39
Дан массив S: 34 0 1 -35 6 -2 4 Определить тип его элементов и размерность. Подсчитать значение Х Х:= S[3] *S[2] + S[74]+S[1]....
mozhena2000
15.04.2020 13:40
Какое условие нужно задать для поиска в сети Интернет информации о породах собак, встречающихся как в Австралии, так и в Канаде? 1) породы собак & Австралия & Канада 2) породы...
Костя111113
15.04.2020 13:40
Алг нач цел n, s n := 1 s := 0 нц пока n = 300 s := s + 30 n := n * 3 кц вывод s кон...
Jane110509
22.04.2020 17:37
Для записи текста используется 256-символьный алфавит. Каждая страница содержит 30 строк по 70 символов в строке. Какой объем содержит 5 страниц текста?Задачу нужно решить с Дано,...
krasnikovanastoyhpaj
14.02.2020 15:34
1)Приведите пример листинга программа, которая заполняет пустой массив десятью целыми числами, введеными с клавиатуры. 2)Вычислите сумму данных N натуральных чисел. Входные данные...
annaerkina
14.02.2020 15:37
ПО ИНФОРМАТИКЕ Составьте блок-хему и програму вычисления значения функции в паскал по информатике Составить блок-схму алгоритма и программу на Паскал для вычисления функций z. Ввести...
Алая5кровь
14.02.2020 15:37
Здравствуйте, надо написать реферат для 5 класса по информатике, на тему: Форматирование текста. Работа с фрагментом текста....
Zhenya13551
14.02.2020 15:39
решитьЗадание 1.Составить таблицу сложения в двоичной системе счисления и выполнить вычисление: 1110+110 Задание 2. Составить таблицу сложения в троичной системе счисления и выполнить...
Популярные вопросы
1.раскрой понятие басни. басня-это ? форма речи? герои? как сформулировать вывод...
2
Don-написать имена 2 кл . афанасьев...
1
Упристани стояло 28 маленьких рыбачьих лодок, а больших – на 9 меньше. утром в море...
2
Дать оценку геополитическому положению казахстана....
1
Найдите значение вырожения. 40: 5*2-2*(21-14)...
3
Найди длину ребра куба с объемом 27см и 125 см в кубн...
3
Подчеркнуть подлежащее и сказуемое. музыка - это духовная пища...
3
Всех скороговорок не переговоришь не перескоровыговоришь какие согласные звуки чаще...
2
Сторона равностороннего треугольника равна 14 корней из 3. найдите его биссектрису...
1
Машина половину пути ехала со скоростью на 3км/ч быстрее средней скорости, а вторую...
1
var a,k,s:integer;
begin
write('a = ');
readln(a);
k:=0; s:=0;
while a>0 do
begin
k:=k+1;
s:=s+a mod 10;
a:=a div 10;
end;
writeln('k = ',k,', s = ',s);
end.
Пример:
a = 352186
k = 6, s = 25