Написать программу вычисления стоимости покупки с учетом скидки 3% сумма больше 200 рублей

Question

Написать программу вычисления стоимости покупки с учетом скидки 3% сумма больше 200 рублей

Answer 1

Для PascalABC:

program Project1;
var i:real;
begin
write('Введите стоимость товара ---> ');
readln(i);
writeln('С учётом скидки товар будет стоить ', i*0,03, ' рублей');
end.

Для Delphi:

var i:real;
begin
write('Vvedite stoimost tovara ---> ');
readln(i);
writeln('S ychetom skidki tovar bydet stoit ', i*0,03, ' ryblei');
readln;
end.

Написал два варианта, так как синтаксис и некоторые моменты немного отличаются с использованием Delphi и PascalABC.

Comments

ой, извините, небольшая ошибка: там где "i*0,03" замените на "i-(i*0,03)"

Answer 2

Наверное, имелось ввиду, что скидка будет, если сумма более 200 рублей?

var x: integer;
begin
  write('Введите цену: '); read(x);
  if(x > 200) then writeln('Скидка 3%! Стоимость покупки:', (x * 0.97))
  else writeln('Скидки нет! Стоимость покупки: ', x);
end.