Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
Стонт2132
11.01.2020 19:53 •
Информатика
Дано целое число n. нужно составить программу для определения, делится ли данное число на целое число m. составить программу плз 9 класс ,язык паскаль
Показать ответ
Ответ:
loptf
29.07.2020 16:18
Var N,M:integer;
Begin
Write('N = ');ReadLn(N);
Write('M = ');ReadLn(M);
if N mod M = 0 then WriteLn(N,' кратно ',M)
else WriteLn(N,' не кратно ',M)
End.
0,0
(0 оценок)
Популярные вопросы: Информатика
8AnnaMur8
17.01.2021 13:01
Программирование обработки одномерных массивов даны действительные числа a1, a2, … ,an. поменять местами наибольший и наименьший элементы. на free pascal...
ЯНА1234598765
16.12.2021 01:45
3. даны три целых числа. определить,сумма цифр которого из них больше. подсчет суммы цифр организовать через подрограмму. 4. определить площадь выпуклого четырехугольника...
Dasha2k18
17.01.2021 01:46
Чему равно 808 в записи, сделанной в системе счисления с основанием p = 16? пробовал 808 - не правильно пробовал 328 - не правильно я не понимаю(...
svetlana50036
15.12.2021 07:29
Написать программу для решения следующей : найти среднее арифметическое наибольшего и наименьшего элементов данной конечной числовой последовательности. + блок-схема. только...
DaryaGoldman1812
15.12.2021 07:29
Сад состоит из 11 деревьев, посаженных в ряд. известно, что высота первого дерева всегда равна 100 метрам, а высота любых двух соседних деревьев всегда отличается ровно на...
gabidullina200p00tmn
27.06.2020 04:44
Логическая функция f задаётся выражением (a ∨ ¬c) ∧ (b ∨ c). определите, какому столбцу таблицы истинности функции f соответствует каждая из переменных a, b, c. ? ? ? f 0000...
nastyabulgakov1
01.08.2020 19:55
Напишите функцию function reverse (n: integer): integer (pascal), которая переставляет цифры числа в обратном порядке ....
platonogloblin
03.12.2020 07:13
Буду ! 1. считая, что каждый символ кодируется 2 байтами, определите, чему равен информационный объём (в битах) следующего высказывания г. лейбница: есть хорошие подарки,...
Kara2006kara
11.08.2022 17:18
Напишите программу паскаль для : 1)найти сумму и произведение натурального ряда от 1 до 10. 2)дано натурально число n.вычислить 2 в n степени. 3)дано натуральное число n.чему...
Lelechk
27.05.2021 09:00
Переведите с Python на Pascal. import random n = int(input()) a = 0 f = [[random.randint(-1000, 1000) for i in range(n)] for j in range(n)] for i in range(len(f)): print(*f[i])...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
Begin
Write('N = ');ReadLn(N);
Write('M = ');ReadLn(M);
if N mod M = 0 then WriteLn(N,' кратно ',M)
else WriteLn(N,' не кратно ',M)
End.