Войти
Регистрация
Спроси ai-bota
В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
Показать больше
Показать меньше
chuevasasha
30.01.2023 04:11 •
Информатика
Возвести во вторую степень число m/n, если его целая часть больше числа k, где k остаток от деления m на 5. нужно сделать через pascal !
Показать ответ
Ответ:
кирилл20072
09.07.2020 13:12
Var
k,m,n:real;
begin
readln(m,n);
k:=m mod 5;
if (m div n)>k then
writeln( (m/n)*(m/n) );
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
tafefuyozo
05.02.2020 04:56
Определите правила по которому составлена последовательность и продолжите её. 1) а,в,е,и,н 2)1,2,4,8,16,32...
Grizman7
05.02.2020 04:56
Составить программу, печатающую значение true, если указанное высказывание является истинным, и false в противном случае: а)точка с координатами (х,у) принадлежит части плоскости,...
Eugene1223
21.03.2020 19:13
Построить блок схему по номер 14...
КетиШифр
05.02.2020 04:56
Вспомните по одному объекту каждого из множеств и запишите их единичные имена. 1.остров 2. мореплаватель 3.орфограмма 4. закон 5.формула 6.поэма ,...
masha9form
17.04.2023 04:47
Кто чем может))надо зачет сдать счас заранее...
Darishka22
30.10.2022 06:31
Визначте яку алгоритмічну структуру реалізовано у фрагменті програми:...
Ybivashka11
21.10.2020 13:40
Какое количество воды и 30%-ного раствора хлоридной кислоты следует взять для того, чтобы приготовить 400 г нового раствора хлоридной кислоты с 3%. Если можно с объяснением...
makrona123
21.10.2020 13:40
Ойойойолйлйлйлйлйлйлойлц...
DarthMalgus
21.10.2020 13:40
Какие эстафеты бывают по составу? (6 составов)...
astrafikal
21.10.2020 13:40
Помагите умаляю Write the adjectives/Напиши прилагательные sun – rain – fog – chill – cloud- 2. Fill in the correct word./Вставь нужное слово. Предложение запиши полностью. fly...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
k,m,n:real;
begin
readln(m,n);
k:=m mod 5;
if (m div n)>k then
writeln( (m/n)*(m/n) );
end.