Скласти програму, що обчислює вартість покупки товарів одного типу з урахуванням знижок...

Question

Скласти програму, що обчислює вартість покупки товарів одного типу з урахуванням знижок на деякі групи товарів (групи мають коди) та знижку 5%, якщо загальна сума покупки становить понад 100 грн.
Знижки на деякі групи товарів з кодами від 100 до 500: 100...150 - 2%, 210, 215, 220 - 7%, 230...300 - 9%. Якщо код групи товарів не належить до вказаних, то вивести повідомлення про відсутність знижок. (И ещё блок схему)
___________________________________________________________________
Составить программу, которая вычисляет стоимость покупки товаров одного типа с учетом скидок на некоторые группы товаров (группы имеют коды) и скидку 5%, если общая сумма покупки составляет более 100 грн.
Скидки на некоторые группы товаров с кодами от 100 до 500: 100...150 - 2%, 210, 215, 220 - 7%, 230...300 - 9%. Если код группы товаров не относится к указанным, то вывести сообщение об отсутствии скидок.

Comments

яка мова програмування?

Answer 1

Яка мова програмування?

Comments

program a1;
var i,n,b:integer;
a,k:real;
begin
k:=0;
writeln('');
readln(n);
for i:=1 to n do begin
writeln('');
readln(a,b);
k:=k+a;

case b of
100..150 : a- (a / 100 * 2);
210, 215, 220 : a - (a / 100 * 7);
230..300 : a - (a / 100 * 9) ;
end;
k:=k+a;
if k>=100 then k - (k / 100 * 5);
writeln(k);
end;

---

1 writeln кількість товарі

---

2 ціна та код

---

Почему то не работает(

---

де помилка?

---

(100..150 : a - (a / 100 * 2); Встречено '-', а ожидалось ';'

---

100..150 : a - (a / 100 * 2); : Встречено '-', а ожидалось ';'

---

ти це через шо провіряв?

---

Через паскаль

---

program a1;
var i,n,b:integer;
a,k:real;
begin
k:=0;
writeln('');
readln(n);
for i:=1 to n do begin
writeln('');
readln(a,b);
k:=k+a;

case b of
100..150 : a:=(a - (a / 100 * 2));
210,215,220 : a:=(a - (a / 100 * 7));
230..300 :a:= (a - (a / 100 * 9));
end;
k:=k+a;
end;


if k>=100 then k:=k - (k / 100 * 5);
writeln(k);

end.