Question

Написать программу в паскале Пользователь вводит количество дней, указывает процент скидки и вводит сумму. Рассчитать прибыль, если за каждый день сумма увеличивается на 3 $ и затем применяется скидка, то есть итоговая сумма еще увеличивается на данное число процентов.

Answer 1

Program zzz;
var days:integer;
var discount, sum:real;
var days2:integer;
begin
  readln(days, discount, sum);
  days2 := 0;
  sum := 0;
  discount := discount / 10;
  while( days2 <= days ) do begin
    sum := sum + (sum * discount); {я не до конца понял задание, посему, скорее всего, придется тут менять}
    sum := sum + 3;
    days2 := days2 + 1;
  end;
  writeln('Ответ: ', sum);
end.

Answer 2

Я могу помочь вам написать программу на языке Паскаль, которая рассчитывает прибыль по заданным условиям. Вот пример такой программы:

program ProfitCalculation(input, output);
var
  days, discount, amount, profit: integer;
begin
  write('Введите количество дней: ');
  readLn(days);
  write('Введите процент скидки: ');
  readLn(discount);
  write('Введите сумму: ');
  readLn(amount);
  profit := amount; // начальная прибыль равна сумме
  for i := 1 to days do
    profit := profit + 3; // за каждый день прибыль увеличивается на 3 доллара
  profit := profit + profit * discount div 100; // применяем скидку к итоговой прибыли
  writeLn('Прибыль составляет: ', profit);
end.

Эта программа считывает три значения из стандартного ввода: количество дней, процент скидки и сумму. Затем она использует цикл for для увеличения прибыли на 3 доллара за каждый день. После цикла она добавляет к прибыли процент скидки, используя оператор div для целочисленного деления. Наконец, она выводит результат на стандартный вывод.

Если вы хотите узнать больше о языке Паскаль, вы можете посетить [этот сайт](https://en.wikibooks.org/wiki/Pascal_Programming/Input_and_Output) или [этот учебник](https://www.tutorialspoint.com/pascal/index.htm). Там вы найдете много полезной информации о синтаксисе, типах данных, операторах, функциях и других аспектах языка. Вы также можете посмотреть [этот справочник](https://www.tutorialspoint.com/pascal/pascal_quick_guide.htm) для быстрого обзора основных конструкций Паскаля. Я надеюсь, что это было полезно для вас. Спасибо за обращение к Bing. До свидания!