Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
Реноша
30.10.2022 18:35 •
Информатика
Паскаль . один компакт-диск коштує 10 грн., а блок з 10 дисків – 90 грн. потрібно купити диски на суму m (m> 100) грн. як виконати покупку оптимально? 1.1. введіть m, виведіть кількість блоків і окремих дисків.
Показать ответ
Ответ:
buzaeva2013
28.09.2020 20:57
Const
cost_1 = 10;
cost_pack = 90;
var
m: integer;
begin
readln(m);
writeln('Блоков: ', m div cost_pack);
writeln('Дисков: ', (m mod cost_pack) div cost_1);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
игорь780
23.07.2020 23:46
ИНФОРМАТИКА.ЗАДАНИЯ В ФАЙЛЕ....
Dizig
01.06.2021 15:31
Сколько, по вашему мнению, существует систем программи- рования? Будьте готовы обосновать свою точку зрения....
asanali2288
21.11.2020 23:10
Var a,b: integer; procendure proc(var a: integer; b: integer) begin b: =4; а: =6; b: =а+b; end; begin a: =2; b: =3; proc(a,b); writeln(a, ,b); end....
моника59
12.01.2020 09:27
. СОР ПО ИНФОРМАТИКЕ 8 КЛАСС Площадь трапеции равна произведению полусуммы ее оснований на высоту (a, b, h). Определите входные данные (значения переменных, которые нужно...
gubankowauly19
30.09.2021 04:03
Даны две строки, выполнить сцепление этих строк в одну(Паскаль)...
KultchiK
06.10.2022 14:27
3. Напишите самые распространенные антивирусные программы ...
cleverprincess
11.11.2022 23:33
Организация ЖЕЛЕЗНОДОРОЖНЫЕ КАССЫ, расписать по плану: 1. Загрузите ГОСТ Р ИСО/МЭК ТО 13335-3-2007 «МЕТОДЫ И СРЕДСТВА ОБЕСПЕЧЕНИЯ БЕЗОПАСНОСТИ. Ч а с т ь 3 «Методы менеджмента...
marfa228
08.03.2023 03:45
. В программе тело цикла содержит две инструкции. Укажите (запишите) их. i = int ( input ( ) ) while i = 10 : print ( i ) i = i + 1 ; 1) . 2) ...
Bonya97
26.04.2020 00:47
Как назывался документ, позволявший сделать карьеру и достичь дворянского звания людям низших сословий?...
ДаниилВолоснов
26.04.2020 00:47
Главными экономическими отраслями, которым государство отдавало предпочтение в годы правления Петра I, были отрасли, обслуживающие...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
cost_1 = 10;
cost_pack = 90;
var
m: integer;
begin
readln(m);
writeln('Блоков: ', m div cost_pack);
writeln('Дисков: ', (m mod cost_pack) div cost_1);
end.