Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Х
Химия
Д
Другие предметы
Н
Немецкий язык
Б
Беларуская мова
М
Музыка
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
У
Українська література
Р
Русский язык
Ф
Французский язык
П
Психология
О
Обществознание
А
Алгебра
М
МХК
Г
География
И
Информатика
П
Право
А
Английский язык
Г
Геометрия
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
Gancha163
19.08.2021 14:01 •
Информатика
Написать программу которая определяет: если целое число m делится на целое число n, то на экране выводит часть деления, в противном случае выводится сообщение "m и n нацело не делиться" в pascal
Показать ответ
Ответ:
Лера568687
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 оценок)
Ответ:
Айнұра
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 оценок)
Популярные вопросы: Информатика
полина20042012
24.01.2022 08:59
Найти площадь заштрихованной фигуры. если a,b,c вводится с клавиатуры...
milenluiz
01.03.2023 13:07
Переведите число 1613 из восьмеричной системы счисления в двоичную сс. в ответе укажите номер полученного числа. 1) 1110001011 2) 1 3) 000001 4) 0111000101...
natali030303nat
07.09.2022 12:37
Вычислите выражение: 0102 ∙ 416 + 16218 ответ представьте в десятичной системе счисления....
Alya23051
19.01.2020 21:10
Вычислите выражение: (100*100*100)2 . ответ представьте в десятичной системе счисления. подробно...
annushkan0
09.08.2022 16:03
Практическая работа. решение с условием. 1. использовать необходимое количество переменных. кило яблок стоит х руб. y копеек мы купили m килограмм n грамм необходимо подсчитать...
wjwjwjeuei
18.12.2021 08:11
Сколько кбайт информации содержит сообщение объемом 2 в 21 степени бит? (ответ – одним числом)....
LianaTesten200615
18.12.2021 08:11
Решите по паскалю. даны три числа x, y, z найдите количество и произведение нечетных чисел принадлежащих отрезку c; d....
sergijkorovonko
21.06.2020 14:52
Сколько оборотов сделает зубчатое колесо с 16 зубцами. если сцепленое с ним колесо с 40 зубцами сделает 32 оборота?...
Bredovik
25.07.2020 20:16
Напишите программу в паскале, которая на ввод времени суток выводит соответствующее пожелание доброго утра, доброго дня, доброго вечера или спокойной ночи....
Logikahaha
25.07.2020 20:16
5. определить объем видеопамяти в килобайтах для графического файла размером 640480 пикселей и палитрой из 32 цветов...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и 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.