tutotveti.ru
Предметы
Биология
Українська мова
Музыка
Французский язык
Физика
МХК
Обществознание
Психология
ОБЖ
Право
Беларуская мова
Литература
Химия
Українська література
Экономика
Немецкий язык
География
Информатика
Қазақ тiлi
Геометрия
Английский язык
Русский язык
Окружающий мир
Алгебра
История
Другие предметы
Видео-ответы
ПОИСК
Войти
Регистрация
Информатика
Если сумма цифр введённого
Если сумма цифр введённого с клавиатуры четырёхзначного числа делится на 3 без остатка, то вывести "yes" иначе "no"
simkinaalinoschka
3 23.09.2019 13:05
5
Ответы
katyauauauaua
08.10.2020 12:20
PascalABC.NET 3.3.5, сборка 1659 от 09.04.2018
Внимание! Если программа не работает, обновите версию!
begin
var n:=Abs(ReadInteger);
var s:=0;
while n>0 do begin
s+=n mod 10;
n:=n div 10
end;
if s mod 3=0 then Writeln('YES') else Writeln('NO')
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
km73283
29.08.2019 02:50
:пользуйся таблицей шифра 1, зашифруй эту фразу(некому не говори). надо(...
then3rvnyy
12.03.2019 19:17
Вычислить объем видеопамяти, необходимой для хранения изображения, занимающего весь экран монитора с разрешением 1440х900 и палитрой из 65536 цветов ...
ninadodichenko
12.05.2020 11:49
Определите сколько символов в сообщении,если его объем составляет 500 бит,а вес одного символа равен 5бетам...
MrZheka17
12.05.2020 11:49
Исполнитель Вычислитель преобразует число на экране. У исполнителя есть две команды, которым присвоены номера: 1. Прибавить 1 2. Умножить на 2 Первая команда увеличивает...
ослвлвллыб
26.01.2021 15:56
Уксастыгы мен айырмаршылыгын кестени толрыңдар. Екі санның қосындысын есептеу«Математика» пәні«Информатика» пәні комектесиндерш Информатика 6сынып...
maksimgrig12
22.04.2020 07:18
решить плз по информатике ...
даринасид85
22.04.2020 07:18
1.Что такое программирование?...
ViShEnKalкрасная
22.04.2020 07:18
Дан фрагмент электронной таблицы в режиме отображения формул: AВС 1. 72 = А1*$В$1 2. 39 Чему будет равно значение ячейки С2 после копирования в неё формулы из С1?...
malievaanzira05
28.08.2019 16:30
Основания для уволнения работника? ?...
mariamuraskina9
28.08.2019 16:30
Сообщение на тему: иудаизм и культура....
Популярные вопросы
Заполни графы и постере. Найди определения следующих понятий:...
1
Перечисли героев легенды на все вопросы ответить ...
1
составить в виде графа. Является ли полученный граф деревом? Числительные...
1
Дененің үдеуін анықтаңдар. 2. Тас жерге 10 м биіктіктен құлайды....
3
7. Отметьте верные высказывания знаком «+», а ошибочные знаком...
1
Write one word from exercise 1 in each gap....
3
РЕШИТЕ ВПРАВУ, УКРАИНСКИЙ ЯЗЫК ВОРОН, 6 класс...
1
У чому ж мудрість такої різноманітності клітин в організмі тварини??...
2
Основные требования для оформления лабораторной работы по биологии...
3
Словесно намалюйте пейзаж, використавши рядки з пісні „Місяць...
3
Внимание! Если программа не работает, обновите версию!
begin
var n:=Abs(ReadInteger);
var s:=0;
while n>0 do begin
s+=n mod 10;
n:=n div 10
end;
if s mod 3=0 then Writeln('YES') else Writeln('NO')
end.