1. Информатика
  2. Найдите сумму цифр натурального

Найдите сумму цифр натурального шестизначного числа. Составьте программу в паскаль

annattarsova0 annattarsova0    3   22.02.2021 20:17    2

Ответы
KristiDever KristiDever  24.03.2021 20:22

var N,st,dt,t,s,d,e:integer;

begin

writeln('Введите число');

readln(N);

st:= N div 100000;

dt:= N div 10000 mod 10;

t:= N div 1000 mod 10;

s:= N div 100 mod 10;

d:= N div 10 mod 10 ;

e:= N mod 10;

s:= st+dt+t+s+d+e;

print(s);

end.


Найдите сумму цифр натурального шестизначного числа. Составьте программу в паскаль
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
agharkova2014 agharkova2014  22.04.2020 11:22
99!! = 1·3·...·97·99 составьте программу найти факториал...
pety1234 pety1234  22.04.2020 11:22
Сост. прогр. Рез-ты экзаменов представлены в виде списка из N строк, в кажд. строке кот. записаны фам. студента и отметки по кажд. из M экзам. Найти кол-во студ., сдавших экзамены...
алана24 алана24  22.04.2020 11:22
Непрерывная задача о рюкзаке. Имеются n предметов. Для каждого предмета i (i=1, 2, ..., n) известен вес gi и прибыль ci, которая получается при транспортировке. Имеется рюкзак,...
Сонькамя Сонькамя  22.04.2020 11:21
12. Что будет выведено на экран в результате работы следующего цикла (k – целая переменная)? а) k = 1 while k 5: print( k, end= ) k += 1 ответ: б) k = 4 while k 10: print( k*k,...
kiktev kiktev  04.10.2019 06:20
Зачёт по информатике какой объём информации (в килобайтах) занимает неупакованное полноцветное (2^25 цветов) растровое изображение размером 1024×720 пикселей...
пмнирче пмнирче  04.10.2019 06:20
Файл размером 1200 кбайт передаётся через некоторое соединение в течение 20 секунд. определите размер файла (в кбайт), который можно передать через это соединение за 30 секунд....
lizabelova00 lizabelova00  15.05.2020 18:16
Для чертежника кумир напишите алгоритм действий для трёх треугольников. Картинка только такая есть!...
stigma70 stigma70  21.12.2020 13:55
Какой из вариант ответов входит к редактированию текста? а) Исправление текста.0) Установить фон страницыв) Копировать текст и вставить в другое место.г) Изменить цвет шрифта​...
ivanow343536373839 ivanow343536373839  21.12.2020 13:56
При рисовании каких фигур используются эти кнопки?​...
DisbeliefPapyrus DisbeliefPapyrus  07.04.2020 02:53
Разработайте программу, которая задаёт пользователю три во о том, какие числа ему нравятся (например Вам нравятся числа, кратные 3? , Вам нравятся двузначные числа? , Вам нравятся...

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