Написать программу вычисления стоимости покупки с учетом скидки. Скидка в 10% предоставляется, если сумма покупкибольше 1000 рублей

1

Ответы и объяснения

2013-04-15T13:34:03+04:00

var

  n, s : longint;

begin

  write ('Введите рубли');

  read (n);

  s := n * 100;

  write ('Введите копейки');

  read (n);

  s := s + n;

  if s > 100000 then s := s - s div 10;

  writeln (s div 100, ' рублей, ', s mod 100, ' копеек.');

end.