Войти Регистрация Спроси ai-bota

Дано натуральное число. определите сумму цифр в нем

Ответ:

maksud19750203oyaf73

07.10.2020 23:01

Var a,s:integer;
begin
readln(a);
s:=0;
while a>0 do
begin
s:=s+a mod 10;
a:=a div 10;
end;
writeln('s = ',s);
end.

Пример:
13854
s = 21

0,0(0 оценок)

Ответ:

Ivanlabur

07.10.2020 23:01

Разделить на 2 и умножить число которое получилось

0,0(0 оценок)

Популярные вопросы: Информатика

vika24rus25

24.08.2021 05:13

Вопрос 5 Одним из шагов механизма обработки прерываний является сохранение адреса прерываемой программы Выберите один ответ: а В сегментных регистрах b. В определенных...

УмНяша01

10.12.2022 00:26

Напишите программу, которая вычисляет минимальный нечетный элемент в массиве. Исходные данные: количество элементов в массиве, значения элементов вводятся случайным...

diana1078

07.03.2022 06:19

Напишите алгоритм постройки кирпичной стены...

tatyana101035

16.01.2023 17:55

Дан двумерный массив. найти столбец с максимальной и минимальной суммой элементов....

katyakiseleva3

15.03.2023 10:17

Составить сообщение информатика вокруг нас...

feliz3600

29.08.2020 16:20

Прочитать массив из 10 элементов и написать каких элементов больше четных или нечетных. ( на паскале)...

valeriaasoskova

21.07.2022 20:23

Кприкладным программам не относится...

Морфология11

21.03.2022 22:27

1. етістіктен болған сын есімді көрсетіңіз. a) шашыраңқы b) келді c) күллі, тегіс d) әкелді e) ажарлы 2. топтау сан есiмiн белгілеңіз. a) бес b) бесiншi c) бес...

avorob

21.03.2022 22:27

Вшколу 24т угля за зиму изросходавали 7/8 угля скл тонн угля осталось...

макспростомакс1

21.03.2022 22:27

Найди значение выражения 2(4а+3в)-3(2а+6в),если 6в-а=1,9...

Полный доступ

Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку