Скласти програму, що обчислює вартість покупки товарів одного типу з урахуванням знижок на деякі групи товарів (групи мають коди) та знижку 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%. Если код группы товаров не относится к указанным, то вывести сообщение об отсутствии скидок.
Ответы
Ответ дал:
0
яка мова програмування?
Ответ дал:
0
(100..150 : a - (a / 100 * 2); Встречено '-', а ожидалось ';'
Ответ дал:
0
100..150 : a - (a / 100 * 2); : Встречено '-', а ожидалось ';'
Ответ дал:
0
ти це через шо провіряв?
Ответ дал:
0
Через паскаль
Ответ дал:
0
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.
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.
Вас заинтересует
2 года назад
2 года назад
7 лет назад
7 лет назад
9 лет назад
9 лет назад