Войти
Регистрация
Спроси ai-bota
В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
Показать больше
Показать меньше
situan4
11.02.2020 04:14 •
Информатика
Дано четырёхзначное число определить: кратна ли трём сумма его цифр
Показать ответ
Ответ:
LimOonka
08.10.2020 15:45
Program tz;
var
a,b:integer;
i:byte;
begin
writeln('vvedite 4x znachnoe chislo');
readln(a);
b:=1;
for i:=1 to 4 do begin
b:=b*(a mod 10);
a:=a div 10
end;
if (b mod 4) = 0 then
writeln(b,' Kratno 4')
else
writeln(b,' Ne kratno 4');
readln;
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
Maria20511
31.05.2021 17:15
Даны две строки s1: =d,e,f и s2: =567.получить строку d5e6f7...
димка184
21.08.2020 07:14
Даны координаты (целые от 1 до 8) двух полей шахматной доски. определить, может ли конь за один ход перейти с одного из этих полей на другое. паскаль...
danil7531
08.08.2021 04:08
По информатике 6 ! предложите, в каком формате лучше сохранить графические файлы при разных ситуациях, если вам придется: а) хранить изображение в мобильном телефоне; б) размещать...
kaanekiken
26.03.2021 07:07
Сколько бит информации содержит сообщение объёмом 512 мб? (ответ - степень 2)...
анна2259
13.05.2021 13:38
Сколько кбайт информации содержит сообщение объемом 2 в 25 степени бит?...
gei228
19.08.2022 01:12
Сколько мбит информации содержит сообщение объёмом 2 в 27 степени байт...
kristinaabrosi1
20.11.2021 19:29
Возможно ли это, и где ошибка #include using namespace std; int main() { char a; cin a; if (a= hi ){ cout hi ; } else { cout no ; } }...
Natalii2017
31.10.2020 18:21
Вводится текст из слов, между которыми пробел, и отдельное слово. слова текста, содержащие первую или последнюю букву введенного слова, заменить введенным словом...
ATAT1
08.04.2021 18:14
Описать утюг по таблице 1 . состав 2. на что похоже? написать загадку....
dania45451
03.03.2020 17:29
Изменение ориентации текста в ячейках относится ли к форматиравонию ....
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
var
a,b:integer;
i:byte;
begin
writeln('vvedite 4x znachnoe chislo');
readln(a);
b:=1;
for i:=1 to 4 do begin
b:=b*(a mod 10);
a:=a div 10
end;
if (b mod 4) = 0 then
writeln(b,' Kratno 4')
else
writeln(b,' Ne kratno 4');
readln;
end.