Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
КИРА28012007
17.03.2022 08:10 •
Информатика
Определить максимальное трёхзначное целое число, которое нацело делится на 21. вывести значения: делимое число, остаток от деления на 21 и целое частное для каждого шага алгоритма. отдельной строкой вывести ответ. написать прогу в паскале
Показать ответ
Ответ:
alieismailova1
20.07.2020 01:13
Program X;
var
max, i: longint;
begin
max:=0;
for i := 100 to 999 do
begin
writeln('Делимое: ', i , ' Остаток: ' , i mod 21, ' Целое частное: ' , i div 21 );
if (i mod 21) = 0 then max := i
end;
writeln('ответ: ', max)
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
Аnюtоchкa
27.02.2023 07:23
Дан фрагмент программы, который в массиве из 10 случайных целых чисел от 1 до 100 находит элемент с максимальным значением. Если таких элементов несколько, то программа должна...
ardolg
11.03.2021 00:49
МНОЖЕСТВА. РЕШЕНИЕ ЗАДАЧ (2 множества) №1 Дано: Культура – 2900 страниц История – 1900 страниц Культура |История – 4400 страниц Культура & История - ? страниц №2 Дано:...
sweetmur
11.11.2020 19:52
нужно решение 2-х работ,буду очень благодарен...
Roman22020
27.05.2020 21:55
Вычислить значение функции y=sinx от 0 до 1 с шагом 0,1. результат в таблице...
валя20063
06.02.2022 03:16
Составить блок схему по информатике: найти произведение цифр заданного пятизначного целого числа....
Ychenik2525
25.03.2022 16:35
составить таблицу истинности под номером 1 и 2...
makeevaed
17.08.2022 06:04
Всегда путаю знаки решите уравнение -3x=9...
olgaserzhantova
17.08.2022 06:04
Circle the correct answer. 1 a: whats your new flat like? b: a) lts very nice. b) really? 2 a: has your new house got any furniture? b: a) how about the kitchen? b) yes, it...
Шоце
17.08.2022 06:04
Маленькая информация о кошке нужно...
Deva0revolution
17.08.2022 06:04
Автомобиль,двигаясь равномерно, проходит 32 м за 4с. после этого автомобиль начинает торможение до полной остановки. чему равно ускорение автомобиля при торможении, если тормозной...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
var
max, i: longint;
begin
max:=0;
for i := 100 to 999 do
begin
writeln('Делимое: ', i , ' Остаток: ' , i mod 21, ' Целое частное: ' , i div 21 );
if (i mod 21) = 0 then max := i
end;
writeln('ответ: ', max)
end.