1. Информатика
  2. Задается положительное целое

Задается положительное целое число n.нужно вывести сумму его цифр

16Milochka16 16Milochka16    2   18.06.2019 07:20    0

Ответы
vikalavrlavr vikalavrlavr  14.07.2020 23:26
Program asd;
var i,n:integer;
begin
read(n);
while n>0 do begin
i:=i + n mod 10;
n:=n div 10;
end;
write(i);
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
Витаминка111118 Витаминка111118  12.02.2021 12:14
Задача A. Задача из ЕГЭ Вася готовится к ЕГЭ по информатике и тренируется решать 23 задачу. Он нашел много вариантов этой задачи, но не нашел к ним ответов. Во всех найденных...
Otlichnica999 Otlichnica999  25.02.2020 23:56
1 Для чего предназначен оператор CIRCLE? 1 Для рисования окружности 2 Для вывода точки на экран 3 Для закрашивания замкнутой поверхности 4 Для переключения в графический...
DogyStyleee DogyStyleee  26.04.2020 16:07
1 Ввести число N. 2 Присвоить x единицу. 1 Возвести x в квадрат и присвоить полученное значение переменной y. 2 Если y n, вывести значение y на экран. 3 Увеличить значение...
elvira122004 elvira122004  16.06.2019 11:20
Впаскале составить блок-схему и программу для вычисления значения функции y при заданном значении аргумента x. y=4x^2+2(x^2+1) ; x=3...
Igor171717 Igor171717  16.06.2019 11:20
Смайлик купил две коробки с компютерными устройствами. в одной коробке-4мыши, в другой -5 трекболов. известно, что 3 мыши тяжелее чем 4 трекбола . какая коробка легче,...
markthebest95 markthebest95  16.06.2019 11:20
Перечислите устройства ввода персонального компьютера....
qwertzloygoblinqwert qwertzloygoblinqwert  06.05.2020 21:05
1. Розгалуження - це фрагмент алгоритму, який обовязково містить... (оберіть всі правильні відповіді) а) команду перевірки умови б) запитання в) команду присвоювання г)...
ottom06 ottom06  06.05.2020 21:05
1. Что такое локальная компьютерная сеть? 1.Глобальное объединение компьютеров, расположенных на больших расстояниях. 2.Множество компьютеров, связанных каналами передачи...
victoria6178 victoria6178  06.05.2020 21:05
Одному хлопчику наснився страшний сон, наче за ним женуться t тигрів, l левів v вчительок математики. Спочатку хлопчик у своєму сні біг дуже швидко і леви відстали від...
LiNkoLine LiNkoLine  06.05.2020 21:05
Записать на языке Паскаль. Ввести четырехзначное число. Если оно четное, разделить его на 2 и вывести на экран, в противном случае вычесть из него 1000 и вывести на экран....

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