Ввести стоимость покупки в магазине, если стоимость меньше тысячи, то вывести "скидки нет", если стоимость от 1000 до 5000, то вывести "скидка 5%",
5-9 класс
|
если стоимость свыше 5000, то вывести "скидка 10%". Вывести сумму со скидкой.
Для Paskal ABC
Program magazin;
var
a:integer;
s:integer;
begin
s:=0;
writeln('Введите стоимость:');
readln(a);
If a<1000 then begin
writeln('Скидок нет');
writeln('Ваша сумма:',a);end;
If (a>=1000)and(a<=5000) then begin
s:=(a/100)*95;
writeln('Ваша скидка 5%');
writeln('Ваша сумма:',s);end;
If a>5000 then begin
s:=(a/100)*90;
writeln('Ваша скидка 10%');
writeln('Ваша сумма:',s);end;
Другие вопросы из категории
квадрате размером 3*3 клетки таким образом, чтобы сумма чисел по каждой строке, каждому столбцу и диагоналям была одинаковой, и указать эту сумму в шестнадцатеричной системе счисления. Заранее спасибо.
Определите размер файла (в байтах),который можно передать за это же время через другое соединение со скоростью 256 бит в секунду.
Читайте также
таблицу. А - И.Ф. покупателя В - стоимость покупки С - оплата (формула только в "оплата",там нужно через =если...)
ВХОДНЫЕ ДАННЫЕ S- стоимость покупки с учетом скидки( если она предоставляется)
1. Writel(' вести стоимость перчатки наприм')
read (x)
2 стоимость сумки- наприм.
3.стоимость ремня- наприм.
4.если общая сумма больше 800р, то вывести сумму с учетом 10% скидки
5.если сумма меньше 800р, то вывести сумму
Помогите пожалуйста очень нужно, благодарю!!!
если х изменяется от 1 до 10 с шагом 1