1. Информатика
  2. Ввести целое число и найти

Ввести целое число и найти сумму его цифр пример: введите целое число: 1234 сумма цифр числа 1234 равна 10 решите через паскаль

riga04 riga04    1   15.03.2019 23:38    5

Ответы
SKYScraRPharaon SKYScraRPharaon  25.05.2020 14:45

Var

a, Summ:integer;

begin

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

readln (a);

Summ : = 0;

while a > 0 do

begin

Summ : = Summ + a mod 10;

a : = a div 10;

end;

writeln ('Сумма цифр равна ', Summ);

end.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
angelinochka345 angelinochka345  10.08.2019 01:50
Упровайдера быстрый бит действуют следующие правила оплаты безлимитного подключения к интернету 1. каждый полный календарный месяц (кроме летних) стоит 1000 рублей 2. каждый...
chelovekchelovekov99 chelovekchelovekov99  10.08.2019 01:50
Чтобы обеспечить высокое качество воспроизводимого звука...
hamestik hamestik  24.11.2020 00:43
С ПОДРОБНЫМ РЕШЕНИЕМ Обозначим через ДЕЛ(n, m) утверждение «натуральное число n делится без остатка на натуральное число m».Для какого наибольшего натурального числа А формула(¬ДЕЛ(x,...
andriu12252 andriu12252  23.10.2020 14:25
Глубина цвета 24 бита на точку, размер фотографии, 1000 на 1500 точек. Какой информационный объем у данной фотографии?...
zelenskiy10000 zelenskiy10000  23.10.2020 14:25
переведите числа из двоичной системы в восьмеричную ( с таблицы 2), а за тем проверьте результаты , выполнив обратные переводы...
kjhfdklffsjsw kjhfdklffsjsw  23.10.2020 14:25
Хотя бы не меньше половины,буду ооочень благодарен 1. Поясніть ідею методу обчислення наближеного значення кореня квадратного з числа А, використовуючи алгоритм Герона. 2. Напишіть...
Feshiondiva Feshiondiva  23.10.2020 14:25
Задача 3 Изобразите фигуру по образцу, перемешая исполнителя из Т.А в Т.Б. Используйтепроцедуры для рисования Квадрата, его стороны и перехода очень Образец в приложенном файле...
Korolev776 Korolev776  13.05.2020 20:15
решить логические уравнения по информатике....
1sherlock2 1sherlock2  13.05.2020 20:14
Выполните Массив в программировании это… * А) большое количество цифровых данных. Б) устройство хранения данных, состоящее из нескольких накопителей информации. В) это поименованная...
kek22821 kek22821  25.03.2020 20:12
4 Задание 4.1 Составьте функцию пользователя, вычисляющую стоимость дорожки, проходящей по через луг и пляж (постановка задача приведена в практическом занятии 6). Все данные...

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