Войти
Регистрация
Спроси ai-bota
В
Все
У
Українська література
Г
Геометрия
Д
Другие предметы
Э
Экономика
Г
География
О
ОБЖ
М
Математика
М
МХК
Х
Химия
Қ
Қазақ тiлi
Л
Литература
У
Українська мова
О
Обществознание
Ф
Физика
А
Английский язык
А
Алгебра
И
История
Б
Беларуская мова
Б
Биология
М
Музыка
П
Право
И
Информатика
П
Психология
В
Видео-ответы
Н
Немецкий язык
Ф
Французский язык
О
Окружающий мир
Р
Русский язык
Показать больше
Показать меньше
куцев
02.01.2020 19:06 •
Информатика
Сумма покупки составляет а-рублей, если а> 1000 то предоставляется скидка 15% вывести на экран сумму покупки с учетом скидки,либо сообщение о том ,что скидка не предоставляется ( сделать ! )
Ответ:
LAMuK
03.08.2020 12:57
If a>1000 then
b:=a*0.15;
a:=a -b;
write(a);
else
write('скидки нет');
End.
0,0
(0 оценок)
Популярные вопросы: Информатика
botan2008
11.11.2020 15:02
Сложите числа и переведите результат в десятичную систему счисления 101² и 1111001²...
mikimaus4
15.12.2021 08:18
Выберите верное определение для термина Оглавление Список всех ссылок использованных в документе. Список всех сносок использованных в документе. Список использованной литературы...
лол1338
07.04.2020 13:46
Язык с. на фотографии с комментариями решения....
Juliaaaanaaa
23.07.2020 08:55
Определите информационный вес 1 буквы алфавита племени пульти состоящий из 32 букв...
Mariaaglotkova
15.10.2020 22:04
Как подключить к компьютеру беспроводную мышь и клавиатуру, или в них просто вставляется батарейка и мышь и клавиатура готовы работать? что будет, если у меня беспроводная клавиатура,но...
lizadaf2003
15.10.2020 22:04
Сгенерировать случайным образом массив из 30 элементов в диапазоне [-30; 10]. рассмотреть все отрицательные последовательности в массиве. минимальный элемент в каждой из них...
Романman
01.07.2021 10:49
Заранее за Составить алгоритм, печатающий «ДА», если оба числа m и n неотрицательные, и «НЕТ» в противном случае.2) Составить алгоритм, проверяющий, является ли данное целое...
gamerallgames3457643
09.06.2021 04:17
Решить уравнения 1) 900-x=200 2) a+300=800-100...
Дедад
09.06.2021 04:17
Этот день тянулся долго, в праздник. превращавшись или превращаясь и почему? объясните...
YaKuss
09.06.2021 04:17
Соедини линии равные значения одно и той же величины: 1/20т 25кг 1/10ц 1/10т 1/100т 1/2ц 1ц 1/40...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
b:=a*0.15;
a:=a -b;
write(a);
else
write('скидки нет');
End.