Написать программу вычисления стоимости покупки с учетом скидки. Скидка в 3% предоставляется в том случае, если сумма покупки больше 500 руб., в 5% —
10-11 класс
|
если сумма больше 1000 руб. (Pascal)
program zadacha;
var
a:integer;
b:real;
begin
writeln('введите сумму покупки');
readln(a);
b:=a;
if a>500 then b:=a/1.03;
if a>1000 then b:=a/1.05;
writeln('сумма покупки с учетом скидки равна:',b);
readln;
end.
Другие вопросы из категории
По древней легенде мудрец, который изобрел шахматы, потребовал от персидского шаха такое количество пшеницы, чтобы им можно было покрыть шахматную доску, положив на первую клетку 1 зерно, на вторую - 2, на третью - 4 и т.д., т.е. на каждую следующую в двое больше предыдущей. Каким количеством зерна можно покрыть шахматную доску?
2гб перевести в биты( написать цепочку вычислений)
3) 125124 Кбита перевести в Мб (написать цепочку вычислений)
второй, а tg на третьей строчки
program h;
var f:text;
x,y,z:real;
begin
assign (f,'c:\ty.txt');
reset (f);
rewrite(f);
x:=0;
while x<=3 do
begin
x:=x+0.1;
y:=sin(x);
z:=sin(x)/cos(x);
write(f,' x= ',x:4:2,' ');
write(f,'sin ',y:7:5, ' ');
write(f,'tg ',z:5:3,' ');
end;
close(f);
end.
Читайте также
Ниже приведен рекомендуемый вид экрана во время выполнения программы (данные,
введенные пользователем, выделены полужирным шрифтом).
Вычисление стоимости покупки.
Введите исходные данные:
Цена
одного килограмма яблок (руб.) -> 8.5
Вес яблок (кг) ->
2.3
Стоимость покупки: 19.55 руб.
(данные, введенные пользователем, выделены полужирным шрифтом).
Вычисление стоимости покупки.
Введите исходные данные:
Цена одного килограмма яблок (руб.) -> 8.5
Вес яблок (кг) -> 2.3
Стоимость покупки: 19.55 руб.
Количество ввести при помощи оператора READ/