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

Дано число n. найти сумму цифр числа

Нажмите на рекламу ниже и сразу увидите ответ

↓

Популярные вопросы:

kivrosa

12.10.2021 01:23

Сымсыз желінің ерекшелігін таңдаңдар: *...

Tet4ip06y

20.11.2021 01:52

Сколько существует различных наборов значений логических переменных x1, x2, x7, x8, x9, x10, которые удовлетворяют всем перечисленным ниже условиям? ((x1≡x2) v(¬x3≡x4))v( (¬x1∧¬x2)...

vikaos01Vi

07.05.2023 17:29

90 по информатике решить на pascal или c++ вася переехал из своего родного города и скучает по старым друзьям. к сожалению, вася снимает маленькую квартиру и одновременно в...

Kaatja170

03.10.2022 13:18

Написать программу, которая заполняет массив случайными числами от 1 до 10 и выводит числа не превышающие 5....

Николь11189

24.06.2022 17:28

Нужно написать эти математические выражения на языке Python, например возведение в степень a**2). Фото прикреплено....

Dasha1231232007123

28.11.2021 13:31

Между населенными пунктами A, B, C, D, E, F построены дороги, протяженность которых (в километрах) приведена в таблицах. Определите длину кратчайшего пути между пунктами A и...

evaalmazova

26.03.2022 11:20

Какие правила техники безопасности необходимо соблюдать в компьютерном классе? ! решите 25 !...

tanyabilotserko

08.05.2021 23:27

Задано три дійсних числа напишіть програму яка виводить на екран мінімальне із чисел (pascal)...

allonso

11.02.2021 20:44

Сочинение на тему Тема родины в творчестве писателей 19 века (не очень большое, и что бы было понятно что писал школьник)...

alisher0901

11.02.2021 20:44

293 упр Составление предложения...

Ответ:

12artem2000

24.05.2020 19:16

Программа на Object Pascal:

uses crt;
var n,s: integer;
begin
write('n='); readln(n);
while n>=1 do
begin
inc(s,n mod 10);
n:=n div 10;
end;
write(s);
readln;
end.

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

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

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