Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
nastyasmirniv
27.04.2023 13:56 •
Информатика
Напишите программу вычисления итоговой суммы покупки с учетом скидки.скидка в размере 7 % начисляется,если сумма покупки более 5000 руб.сумма покупки вводится пользователем с клавиатуры.результат работы программы вводится на экран
Показать ответ
Ответ:
arinas23
28.09.2020 16:53
Если я тебя правильно понял:
var
a, f: real;
begin
readln(a);
if a >= 5000 then
begin
f := a - (0.07 * a);
writeln(f);
end
else
if a < 5000 then
writeln(a);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
Asked9me9
24.10.2021 16:23
Перечислите элементы таблицы в ms word. верных ответов: 1. строка, ячейка, диаграмма. строка, столбец, ячейка. ячейка, диаграмма, столбец. столбец, фигура, ячейка...
daryakotyukova
30.04.2020 15:50
Переведите целые числа из десятичной системы счисления в двоичную, восьмеричную и шестинадцатеричную а) 15б) 705в) 2021...
ирина1834
08.09.2020 19:44
Введите три числа.если они могут быть длинами сторон остроугольного треугольника,выведите их в порядке убывания и вычислите их площадь....
KarinaMalfoy08
08.09.2020 19:44
Найдите минимальное из двух чисел a и b,...
aminayahydinap00uha
10.06.2021 03:25
Последовательно вводятся n целых чисел. найти количество семерок в последовательности....
yourbae
11.07.2022 23:43
Записей в таблице по возрастанию или убыванию значения какого-нибудь поля...
baga27
11.07.2022 23:43
Составить программу, которая генерирует 10 случайных чисел в диапазоне от -20 до 30,выводит эти числа на экран и вычисляет сумму отрицательных...
Imfind
11.04.2022 15:32
надо найти корень из этого...
25182830
20.10.2020 23:49
16 МАСТЕРОВ ВЫПОЛНЯЮТ РАБОТУ ЗА 12Ч. СКОЛЬКО ВРЕМЕНИ ЗАЙМЕТ ТАКАЯ РАБОТА, ЕСЛИ 3/4 МАСТЕРОВ УЙДУТ В ОТПУСК, А ОСТАВШИЕСЯ БУДУТ РАБОТАТЬ С ПРЕЖЕНЕЙ ПРОИЗВОДИТЕЛЬНОСТИ...
lemurec
14.05.2022 12:49
3 шага из детства краткое содержание...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
var
a, f: real;
begin
readln(a);
if a >= 5000 then
begin
f := a - (0.07 * a);
writeln(f);
end
else
if a < 5000 then
writeln(a);
end.