Войти
Регистрация
Спроси ai-bota
В
Все
У
Українська література
Г
Геометрия
Д
Другие предметы
Э
Экономика
Г
География
О
ОБЖ
М
Математика
М
МХК
Х
Химия
Қ
Қазақ тiлi
Л
Литература
У
Українська мова
О
Обществознание
Ф
Физика
А
Английский язык
А
Алгебра
И
История
Б
Беларуская мова
Б
Биология
М
Музыка
П
Право
И
Информатика
П
Психология
В
Видео-ответы
Н
Немецкий язык
Ф
Французский язык
О
Окружающий мир
Р
Русский язык
Показать больше
Показать меньше
AlinaZimina2003
24.04.2023 12:38 •
Информатика
Батырхан любит числа, которые без остатка делятся на число 3. к сожалению, для больших чисел он не может проверить должен ли он любить его или нет. ему написав программу, которая ему
Ответ:
DashaKim117
04.10.2020 21:07
// PascalABC.NET 3.2, сборка 1359 от 11.12.2016
// Внимание! Если программа не работает, обновите версию!
begin
var b:=BigInteger.Parse(ReadlnString('Введите натуральное число:'));
Writeln(b mod 3=0?'Любить!':'Не любить')
end.
Примеры
Введите натуральное число: 437698996754633421436470300745368495356906343236523233
Не любить
Введите натуральное число: 12345678901234567890123456789012345678901234567890
Любить!
0,0
(0 оценок)
Популярные вопросы: Информатика
jddosnfkdmsns
08.09.2021 08:10
Нужна по информатике подготовка тематического обзора «анализ рынка компьютерной техники и по» по периодике и интернет ресурсам....
gregsorvenkov
08.09.2021 08:10
Сочинение на тему будущее компьютерной графики...
AFMaster
28.12.2020 15:35
Разработать алгоритм решения , представив его в виде блок-схемы; составить программу на алгоритмическом языке turbo pascal; вывести результаты расчетов на печать (дисплей)....
zedl
28.08.2022 07:38
Составить программу паскаль нахождение произведения квадратов трех натуральных чисел...
danila2001k
12.01.2020 14:45
Задание _Даны три стороны треугольника a,b,c. Определите тип треугольника с заданными сторонами. Выведите одно из четырех слов: rectangular для прямоугольного треугольника,...
Lana8254
09.04.2022 21:14
1. Составьте программу нахождения наибольшего общего делителя трех чисел, используя следующую формулу: НОД(A,B,C) = НОД(НОД(A,B),C). Только по ещё не проходили По этому алгоритму...
Кукушка1199
09.03.2021 12:47
Вывести на экран последовательно все степени двойки от 1 до 1024...
Nikol56
11.06.2021 13:01
Сколько бит в памяти компьютера займёт слово «особенно»?...
Aminka210102
03.08.2021 19:16
15 div 5= 15 mod 5= 421 mod 10= 421 div 10= 357 mod 100= 357 div 100= 357 div 10 mod 10=...
gushagusha
25.01.2023 01:55
Скажу честно хочю в Сириус но не могу решить эту задачуНужно без if и без циклов Имеется n кг металлического сплава. Из него изготавливают заготовки массой k кг каждая. После...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
// Внимание! Если программа не работает, обновите версию!
begin
var b:=BigInteger.Parse(ReadlnString('Введите натуральное число:'));
Writeln(b mod 3=0?'Любить!':'Не любить')
end.
Примеры
Введите натуральное число: 437698996754633421436470300745368495356906343236523233
Не любить
Введите натуральное число: 12345678901234567890123456789012345678901234567890
Любить!