ВОПРОС В торговом центре продаются яблоки. Известно, что при покупке свыше 2 килограммов покупатель получает скидку в 20% на все остальные покупаемые им яблоки. В среде программирования разработайте программу, которая вычисляет итоговую стоимость X кг яблок с учётом скидки. Вычислите с помощью программы итоговую стоимость 5 кг яблок, если цена 1 кг яблок равна 80 руб.
Ответы 1
1
Решение №1 от Андрей Григорьев
program Zad2Nica;

var
  X, ApplePrice: Integer;
  ResPrice: Real;

begin
  // Цена яблок
  ApplePrice := 80;
  // Ввод данных
  Write ('Количество яблок(кг): ');
  Readln (X);
  // Подсчет итоговой стоимости с условием, если покупатель возьмет больше 2 кг яблок и меньше 2 кг
  if X > 2 then 
  ResPrice := 2*ApplePrice + ((X - 2)*ApplePrice)*0.8
  else
  ResPrice := X * ApplePrice;

  // Вывод результатов
  Writeln;
  Writeln('Итоговая стоимость(руб.): ', ResPrice);
end.