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

Запишите на языке Pascal программу, которая для натурального трехзначного числа определяет сумму его цифр.​

erfsdgfRyde erfsdgfRyde    1   26.03.2020 22:28    0

Ответы
артур35 артур35  12.10.2020 06:20

var num: integer;

begin

writeln('Введите натуральное трехзначное число:');

readln(num);

writeln('Сумма цифр равна: ',(

(num div 100) + //Сотни

((num div 10) mod 10))+  //Десятки

(num mod 10)); // Единицы

end.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
emeli2007 emeli2007  12.05.2020 18:47
Яку умову описує команда пропуск в інформатиці​...
kostyasmirnov kostyasmirnov  12.05.2020 18:47
Көмек керек, көмектесіңіздерші өтініш​...
878v878 878v878  12.05.2020 18:46
2.Ваня, Петя, Саша и Коля носят фамилии, начинающиеся на буквы В, П, С и К. Известно, что: 1. Ваня и С. – отличники 2. Петя и В. – троечники 3. В. ростом выше, чем П....
Лчший Лчший  12.05.2020 18:46
Информатика 8 класс Дана часть таблицы «Количество товара на складе». 1 Товар Количество 2 Табурет 258 3 Садовая мебель 103 4 Шкафы 57 5 Вешалки 319 6 Ковры 275 7 Бра...
Shurikoff1 Shurikoff1  12.05.2020 18:46
В одной из кодировок Unicode каждый символ кодируется 16 битами. Вова написал текст (в нём нет лишних пробелов): «Чиж, грач, стриж, гагара, пингвин, ласточка, жаворонок,...
volkovaales0308 volkovaales0308  25.04.2020 08:39
Запиши действие ветвления, если условие ложное: If (temp==36.6) { cout “Oценка 5”; } else { cout “Другая оценка”; }...
tsvakhvesna tsvakhvesna  25.04.2020 08:52
Перетащите допустимые логические выражения в левую колонку, а недопустимые — в правую....
АлёнаKet234 АлёнаKet234  25.04.2020 08:52
Информатика учебник 6 класс босова Презентация ЧАСЫ . (стр.197-198 учебника). Сделать, чтобы большая стрелка перепрыгивала на каждую цифру...
kazekb kazekb  05.02.2022 16:44
Хелп,не могу никак с этой темой разобраться...
naval2018 naval2018  05.02.2022 16:46
ИНФОРМАТИКА 7 КЛАСС ДАЮ 1) После преобразования растрового 256-цветного графического файла в чёрно-белый формат (2 цвета), его размер уменьшился на 700 байтов. Каков...

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