Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
ponchara423
22.01.2021 17:44 •
Информатика
Дано ціле число. визначте, чи воно кратне 7. написати на pascal
Показать ответ
Ответ:
Aynur123455
03.10.2020 04:42
Var x:integer;
begin
writeln('Введіть число x');
read(x);
if x mod 7=0 then writeln('Число ',x,' кратне 7')
else writeln('Число ',x,' не кратне 7')
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
ЯЛюблюЛето
22.12.2021 05:05
Определить тип вычислительного процесса a = 20; b = 10; d = 0; если a b то c = b – a иначе c = 3 × (a – b), d = d + 10. напечатать значения c, d:...
margo2606
14.10.2022 06:20
Раздели циферблат часов прямыми на шесть частей так,чтобы в кажой из них было по два числа и их суммы были равными....
GNA14
14.10.2022 06:20
Миша живет в 22-этажном доме. в нем есть лифт, в котором работают только 2 кнопки. при нажатии на одну из них лифт опускается на 5 этажей, а при нажатие на другую...
Getara907
14.10.2022 06:20
Сдано , что найти и т.д.сколько битов памяти достаточно для кодирования одного пикселя 16- цветного изображения?...
yanastepina83
23.10.2020 15:22
Как выделить предложения с сочетанием клавиш....
vitalii1962svet
19.03.2023 12:39
Запишите пошагово алгоритм . в бочке имеется вода. как набрать 6 литров воды при 9-литрового и 5-литрового ?...
даша20088
25.09.2020 15:16
Как написать эту формулу в excelsinx=3x-2...
130181
25.09.2020 15:16
Учитель работал в каталоге d: \уроки\7 класс\практические работы. затем перешёл в дереве каталогов на уровень выше, спустился в подкаталог презентации и удалил...
kiratheone
10.12.2020 01:59
Вэлектронных таблицах расположенные подряд ячейки в строке, столбце или прямоугольнике образуют выберите один ответ: 1 диапазон ячеек 2 группу ячеек 3 формулу 4...
tborisova
10.12.2020 01:59
Пусть дано n чисел,введенных с клавиатуры. найти количество только тех из них,которые кратны 2 и оканчиваются на 8. программа в паскале(с цикла)...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
begin
writeln('Введіть число x');
read(x);
if x mod 7=0 then writeln('Число ',x,' кратне 7')
else writeln('Число ',x,' не кратне 7')
end.