Войти
Регистрация
Спроси ai-bota
В
Все
У
Українська література
Г
Геометрия
Д
Другие предметы
Э
Экономика
Г
География
О
ОБЖ
М
Математика
М
МХК
Х
Химия
Қ
Қазақ тiлi
Л
Литература
У
Українська мова
О
Обществознание
Ф
Физика
А
Английский язык
А
Алгебра
И
История
Б
Беларуская мова
Б
Биология
М
Музыка
П
Право
И
Информатика
П
Психология
В
Видео-ответы
Н
Немецкий язык
Ф
Французский язык
О
Окружающий мир
Р
Русский язык
Показать больше
Показать меньше
St9747
16.04.2022 20:44 •
Информатика
Составить мат. модель, алгоритм, программу для решения следующей : найти стоимость покупки с учетом скидки. скидка в 10 % предоставляется, если сумма покупки больше 1000 рублей.
Ответ:
поля1315
17.09.2020 21:56
Var A : Real;
Begin
Readln(A);
If A>1000 then A:=A+A/10;
Writeln(A:8:2);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
Тогжан11111111
27.03.2021 09:13
2. Растровое изображение размером 512 х 720 пикселей занимает не более 90 кбайт памяти. Определите максимальное возможное число цветов в палитре. 3. Монитор с разрешающей...
adamchik
02.08.2020 03:23
Задачи на цикл while. Напишите программу, которая получает на вход число n и выводит все цифры от 0 до n. Гарантируется, что...
кавказец78
20.09.2021 08:10
Найди ошибки во фрагменте программы по строчкам …. А:=4; Writein (Значение с=, с) Write (“Молодец,”); Readln; End....
пепоам
23.01.2020 04:31
Задачи на циклы while . Напишите программу, которая получает на вход положительное число. Если введенное число четное выводятся все четные числа до этого числа,...
adam83
27.04.2023 17:48
Рассчитать данные столбца Надбавка, исходя из количества детей (надбавка полагается только сотрудникам у которых есть дети): 1- 100 2 - 200 3 и более - 300. Вычислить...
Mellisa11111111
16.11.2021 10:16
Прям очень нужно решите. Чертёжнику был дан для исполнения следующий алгоритм:Повтори 7 paзСместиться на (−1, 2) Сместиться на (−5, 2) Сместиться на (4, −4) КонецКакую...
nazirakmtv
19.06.2021 15:34
Написать программу на языке Паскаль для решения задачи: Найти сумму всех n-значных чисел. (3≤n≤7)....
macshsav
31.05.2020 09:09
написать программу на Паскале по этому примеру, чтобы программа могла его решить...
piiip
11.04.2023 17:21
Составить программу,при которой нужно ввести своё имя, а потом высветится слово Здравствуйте ....
Марцело
21.01.2023 10:48
Запустите Borland Delphi. 2. Назовите Форму – Главная форма (свойство Caption). Сохраните Модуль под именем UnitGlavn (File – Save as) в своей папке и там же сохраните...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Begin
Readln(A);
If A>1000 then A:=A+A/10;
Writeln(A:8:2);
end.