tutotveti.ru
Предметы
Биология
Українська мова
Музыка
Французский язык
Физика
МХК
Обществознание
Психология
ОБЖ
Право
Беларуская мова
Литература
Химия
Українська література
Экономика
Немецкий язык
География
Информатика
Қазақ тiлi
Геометрия
Английский язык
Русский язык
Окружающий мир
Алгебра
История
Другие предметы
Видео-ответы
ПОИСК
Войти
Регистрация
Информатика
Вычислить сумму цифр четырехзначного
Вычислить сумму цифр четырехзначного числа, которые кратны 3 паскаль
tabastyaffdsgh
2 13.08.2019 22:50
2
Ответы
alinashelepova1
09.08.2020 11:07
Может быть 8?
ПОКАЗАТЬ ОТВЕТЫ
kotsdanil778
09.08.2020 11:07
Const l=4;
var n,s: integer; i: byte;
begin
write ('Введите 4-значное число: ');
readln (n);
for i:=1 to l do begin
if (n mod 10) mod 3 =0
then s:=s+(n mod 10);
n:=n div 10;
end;
writeln;
writeln ('Сумма цифр, кратных 3 = ',S)
end.
Пример:
Введите число: 3456
Сумма цифр, кратных 3 = 9
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
tanya260516
19.06.2019 02:10
Сформировать массив содержащий 15 случайных целых чисел, принадлежащих промежутку [0; 8] и преобразовать элементы массива по следующему правилу: к четному прибавить 1, а...
ання2018
19.06.2019 02:10
Девочки аня, даша и варя купили себе флешки синего, белого и красного цветов. на вопрос у кого из них какая флешка, одна из девочек ответила: у ани флешка синяя, у даши -...
polyakovred
19.06.2019 02:10
1. сформировать внутреннюю и внешнюю файл-функцию. //задан одномерный массив,вывести на печать все элементы, которые равны первому. const n=5; var a: array[1..n] of integer;...
Крутойбрат
14.12.2020 10:21
Создание программ на Паскале, с использованием разветвляющих алгоритмов. создайте прогу, к ней+ блок-схему...
D102006
14.12.2020 10:21
Ввести масив М[1..10]. Запишіть оператори для реалізації завдань: 1) Знайти добуток лише від ємних елементів;2) Знайти мінімальний елемент;3) Знайти кількість додатних елементів;4)...
665609
14.12.2020 10:22
Assembler . Используя предложенную выше программу, выполните второе задание. Исполнить программу с несколькими (три - четыре) различными (по количеству и по составу) массивами...
DASHAMIronovAAA
14.12.2020 10:22
В ячейке H5, чтобы создать формулу для первых зимних Олимпийских игр во Франции вычисляет, во сколько раз больше спортсменов-мужчин, чем участвовало женщин, округляя результат...
tim4ik114
14.12.2020 10:22
Дан фрагмент электронной таблицы. Определите значение, записанное в ячейке А2 и В2 * Подпись отсутствуетА2=14, В2=11А2=9, В2=11А2=14, В2=10А2=14, В2=3...
morgacheva2001
14.12.2020 10:24
Учащийся Елжас, занимается боксом, он занял 1 место в олимпиаде по русскому языку, Дана занимается прикладным искусством, она заняла по химии 2 место, Зина и Артем посещают...
ewgexaymnik
29.05.2019 12:20
Ввиде нарисуйте в виде графа систему, состоящую из 4-х одноклассников, между которыми существуют следующие связи: дружат: саша и маша, саша и даша, маша и гриша, гриша и...
Популярные вопросы
Перечислите 5 видов края листовых пластинок....
3
Перечислите основные части черешкового листа....
1
Каким может быть листорасположение?...
3
Какие виды основной ткани различают в мякоти листа?...
1
Какое жилкование у листьев двудольных и однодольных растений?...
3
Какие типы устьичных аппаратов на рисунке? Для каких растений они характерны?...
3
Для каких растений характерно кущение?...
2
Значение транспирации листа?...
1
Перечислите видоизменения листьев....
1
Какой участок побега называется узлом? Междоузлием?...
2
var n,s: integer; i: byte;
begin
write ('Введите 4-значное число: ');
readln (n);
for i:=1 to l do begin
if (n mod 10) mod 3 =0
then s:=s+(n mod 10);
n:=n div 10;
end;
writeln;
writeln ('Сумма цифр, кратных 3 = ',S)
end.
Пример:
Введите число: 3456
Сумма цифр, кратных 3 = 9