вычисление стоимости покупки, Стоимость покупки с учетом скидки Опции

[Татьяна]

Помогите, пожалуйста!!! Мало понимаю и в компьютерах, не говоря о Паскале.
Условие: "Написать программу на языке програмирования Паскаль. Вычислить стоимость покупки с учетом скидки. Скидка 3% предоставляется в том случае, если сумма покупки больше 50 000 руб., в 5% - если сумма больше 100 000 руб.". Большое спасибо

[APAL]

Жаль конечно, что Вы даже не пытаетесь изучить компьютеры и Паскаль...
Программирование обучает логическому мышлению.

Код

Var k : Real;
Begin
Write('Введите сумму покупки: '); Readln(k);
If (k>50000) and (k<=100000) then k:=k-(k*3)/100;
If k>100000 then k:=k-(k*5)/100;
Writeln('Итоговая стоимость: ',k:8:2);
End.

[Altair]

[offtop]

Программирование обучает логическому мышлению.

APAL, вот только если на земле и милые девушки начнут мыслить логически, то жизнь станет неинтересной, и миру крышка ...
Не просто же так говорят "женская логика" , раз есть термин, значит она особенная... вот я заметил, что девушки спокойно решают сложные задачи на не стандартные методы решения... может потому что все мериют в этом мире по мужским меркам? ;) Татьяна, про компьютер и Паскаль могу рассказать поICQ. Мой: 191232371.
[/offtop]
ЗЫ: извините уж меня, флеймиста такого, админа нехорошего

извиняю... понимаю.... GoodWind

Сообщение отредактировано: GoodWind - 14.11.2004 0:55