1. Информатика
  2. Написать программу вычисления

Написать программу вычисления стоимости покупки с учётом скидки: скидка в 10% предоставляется, если сумма покупки > 1000 руб.

xXEliteXx xXEliteXx    3   28.03.2019 15:50    0

Ответы
ktoEto123123213 ktoEto123123213  27.05.2020 03:04

var a:real;

begin

readln(a);

if a>1000 then a:=a*0.9;

writeln(a);

end.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
sysfzd sysfzd  27.07.2019 12:20
Написать html-код, содержащий программу на языке javascript с использованием условных операторов: заданное число возвести в квадрат, если оно больше пяти, уменьшить на два,...
murahkina2006 murahkina2006  14.09.2020 15:53
Определите значение переменной e после выполнения данного алгоритма: f = 21 e = 10 f = 5 * f + 5 e = f – 10 – e * 5 В ответе укажите одно целое число – значение переменной...
aydinlileman7 aydinlileman7  26.06.2019 00:30
Как нарисовать флаг лаоса в паскаль?...
fukaczumi fukaczumi  05.04.2021 08:29
Составить таблицы истинности для формул:...
Apple008 Apple008  05.04.2021 08:28
1. Дана лінійна таблиця, що містить N цілих чисел і ціле число P (цифри N, P та елементи таблиці вводяться з клавіатури з відповідними додатковими повідомленнями). Якщо...
dff45rt96 dff45rt96  13.06.2019 20:00
100 гарантированно! в системе связи скорость передачи составляет 256000 бит в секунду. на передачу файла с несжатой монофонической музыкой потребовалось 4 минуты 35 секунд....
Atax1a1 Atax1a1  13.06.2019 20:00
Чему равен 1 кбайт? выберете один ответ: а)1000 байт б)102байт в)2 в 10 степени байт г)1000 бит...
Anya183930303 Anya183930303  19.08.2019 14:20
Файл рпзмером 9 кб передается через некоторое соединение со скоростью 1024 бит в секунду.определите на сколько секунд быстрее можно передать этот же файл через другое соединение...
настяWebStorage настяWebStorage  20.11.2020 13:24
сделать таблицу по информатике используя формулы: =СЧЕТЕСЛИ(Диапазон; Условие ),условие может быть задано с знаков =МАКС(Диапазон) =МИН(Диапазон) Мне только сами формулы...
mkolok32 mkolok32  20.11.2020 13:24
При изобарном раширении одноатомнаму идеальному газу было сообщено кошчество теплоты Q, равное 5 к Дж. Какая работа была совершена газом?​...

Популярные вопросы