1. Информатика
  2. Напишите программу,которая

Напишите программу,которая считает сумму цифр введенного числа(паскаль)

fagsfssfs fagsfssfs    3   05.07.2019 16:00    0

Ответы
olgagavrikova31 olgagavrikova31  29.07.2020 01:46
Var n,sum:integer;
begin
writeln('Vvedite chuslo');
readln(n);
repeat
sum:=sum+(n mod 10);
n:=n div 10;
until n=0;
writeln('summa=',sum);
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
Лисёнок335 Лисёнок335  07.12.2020 07:39
Сравни алгоритм с готовым заданием и найди ошибку в алгоритме.1. Нарисоватьпрямоугольник;2. ПрименитьСплошную заливкусиним цветом;3. ПрименитьИнструмент«Градиент».не применена текстуранет...
kosyamosya03 kosyamosya03  07.12.2020 07:39
У = 1/х y = x 2y = - xy = 3 x - 2 Определите функцию для которых был построен график​...
jdjsjsjsj jdjsjsjsj  19.04.2021 10:26
1) Какая задача решается по следующей программе? Program p; Var a,b,c integer: begin radln (a,b); if a b then c: = a else c:=b write (c); end А) Нахождение наименьшего из двух чисел...
mishaniy mishaniy  19.04.2021 10:27
Ввести два числа. Если их произведение отрицательно, умножить его на (-5) и вывести на экран, в противном случае увеличить его в 4 раза и вывести на экран...
MINIONCHIK17 MINIONCHIK17  21.04.2020 12:55
Описать массив из 45 целых чисел(1 массив) , из 80 вещественных чисел(2 массив). Обратиться к 44 элементу 1 массива, указаьб имя 8 элемента 2 массива....
SteveDog86 SteveDog86  20.03.2021 21:19
Дан фрагмент ЭТ. Какое число должно быть в ячейке А2, чтобы построенная после выполнения вычислений диаграмма по значениям диапазона ячеек A2:D2 соответствовала рисунку...
loko177 loko177  20.03.2021 21:18
Нужно написать программу (в питоне или паскале), которая будет иметь базу данных. Например создать тестовую систему.То есть пользователь проходит регистрацию, и в системе он решает...
HanNazbi HanNazbi  20.03.2021 21:15
Очень интересный вопрос. Программист, не пройди мимо!...
Foreveralone321 Foreveralone321  20.03.2021 21:12
Число 1001100^2 в восьмиразрядном представлении имеет вид 11001100. отрицательным числом положительным числом...
ulzhanzeinulla ulzhanzeinulla  20.03.2021 21:00
Соотнесите вид соревнований роботов истребовании площадки​...

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