Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
annlazzzkova
12.08.2021 07:57 •
Информатика
Написать программу которая определяет: если целое число m делится на целое число n, то на экране выводит часть деления, в противном случае выводится сообщение "m и n нацело не делиться" в pascal
Показать ответ
Ответ:
EvilVitaliy
19.06.2020 12:43
Var
m, n : Integer;
begin
Write('M = ');
Readln(m);
Write('N = ');
Readln(n);
if M mod N = 0 then
Writeln(M div N)
else
Writeln('M и N нацело не делится.');
Readln;
end.
0,0
(0 оценок)
Ответ:
taniash052005
19.06.2020 12:43
Var n,m:integer;
begin
readln(m,n);
if m mod n =0 then writeln(m div n) else writeln('Ne delitsea');
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
Tixaia
23.03.2021 05:33
А = «Сейчас нет дождя» В = «Форточка закрыта» Составить сложные высказывания...
trol77
25.01.2022 02:29
Статистика C++ решить через вектора. Вася не любит английский язык, но каждый раз старается получить хотя бы четвёрку за четверть, чтобы оставаться ударником. В текущей четверти...
trul85
09.02.2023 07:19
Впрограмме lazarus(язык turbo delphi). дано четырехзначное число. определить входит ли в него цифры 2 или 7. , исправьте ошибку или решите заново) program project1; var x:...
Sergovseznaet
10.05.2022 12:09
Выполните задания по информатике. Всего 6 штуки ( Не пугайтесь количество файлов, там всего 6 элементарных заданий) . Объяснение не нужно, только ответ. Самое главное, чтобы...
anastasiyademy1
17.05.2020 14:44
Нужно вывести массив без изменений. Например, для массива из 6 элементов, равных 2, 3, 5, 9, 12, 4, нужно получить и вывести массив, содержащий числа 2, 0, 5, 6, 9, В питоне...
GansikT
15.04.2020 03:50
Осенние явления в жизни растений и животных !...
SonyEricsson
15.04.2020 03:50
Дописать уравнения реакций в молекулярном, ионном и сокращённом виде: 1. koh+so2= 2. fe+hcl= 3. k2co3+h2so4= 4. koh+n2o5= 5. mg+hcl=...
svetlanakuznec5
15.04.2020 03:50
Уравнение зависимости координаты от времени движущегося по прямолинейному участку шоссе автомобиля имеет вид : х=200-20t. уравнение зависимости координаты от времени движущегося...
аннаксения
15.04.2020 03:50
Что общего между карлом, карликом и королем?...
232привет
15.04.2020 03:50
Радиус окружности,описанной около правильного треугольника,равен 3.найдите высоту этого треугольника...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
m, n : Integer;
begin
Write('M = ');
Readln(m);
Write('N = ');
Readln(n);
if M mod N = 0 then
Writeln(M div N)
else
Writeln('M и N нацело не делится.');
Readln;
end.
begin
readln(m,n);
if m mod n =0 then writeln(m div n) else writeln('Ne delitsea');
end.