Войти
Регистрация
Спроси ai-bota
В
Все
Х
Химия
В
Видео-ответы
А
Алгебра
Г
Геометрия
О
ОБЖ
Д
Другие предметы
У
Українська література
Р
Русский язык
Б
Беларуская мова
У
Українська мова
Э
Экономика
Ф
Физика
М
Математика
Ф
Французский язык
Г
География
И
Информатика
М
МХК
О
Окружающий мир
П
Психология
Н
Немецкий язык
О
Обществознание
П
Право
И
История
М
Музыка
Л
Литература
Қ
Қазақ тiлi
Б
Биология
А
Английский язык
Показать больше
Показать меньше
maria22890
01.02.2023 10:29 •
Информатика
Батырхан любит числа, которые без остатка делятся на число 3. к сожалению, для больших чисел он не может проверить должен ли он любить его или нет. ему написав программу, которая ему
Ответ:
OctavisicStar691
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 оценок)
Популярные вопросы: Информатика
Лисичка6661
23.12.2020 11:26
Какое максимальное количество колонок можно разместить на стандартном листе ms word? a)любое количество б)3 в)6 г)12...
Zakermanmatematik
23.12.2020 11:26
Сделать блок ! на языке паскаль 1.заданы стороны треугольника. проверить является ли он равнобедренным 2. найти сумму нечетных чисел в промежутке от 20 до n...
Zandrew2000
10.08.2021 00:56
Встроенные функции. Урок 1 В диапазоне А1:А4 расположены числа 5, 9, 15, 7. Определи результаты использования функции для указанного диапазона...
NurBanu1
28.06.2021 16:43
Какая команда в пайтоне убирает пробелы из строки принт? есть команда:print( привет, ,name ! )но она выводит например:привет, Дима !а нужно, чтобы привет, Дима!...
nastyr17
28.01.2023 07:39
. Составить таблицу истинности 13,14,15,16...
Nadachansky
31.08.2020 12:46
20. дана последовательность операторов: s: = 10; i: =3; while i =1 do begin i: =i-1; s: =s + i; end; определить значения переменной s после их выполнения: 20; 10; 13; 0....
Ляляляля109
08.02.2023 05:16
Склавиатуры вводят 3 числа. определить существует ли треугольник с такими сторонами. если да-найти его площадь. если нет-вывести сообщение об этом на экран....
Bogdan1500
22.10.2020 22:14
программа осей:program osi; uses crt; var i:integer; begin gotoxy(1,12); for i:=1 to 79 do begin write( - ); end; for i:=2 to 22 do begin gotoxy(40,i); writeln( ! ); end;...
Ecli
19.11.2022 22:54
Каким образом осуществляется связь отделов головного мозга друг с другом,со спинным мозгом,с другими органами нашего тела?...
sammerosetrova
19.11.2022 22:54
Чем прославился полководец м.и. кутузов?...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
// Внимание! Если программа не работает, обновите версию!
begin
var b:=BigInteger.Parse(ReadlnString('Введите натуральное число:'));
Writeln(b mod 3=0?'Любить!':'Не любить')
end.
Примеры
Введите натуральное число: 437698996754633421436470300745368495356906343236523233
Не любить
Введите натуральное число: 12345678901234567890123456789012345678901234567890
Любить!