написать программку в паскале Юзер вводит количество дней, показывает процент скидки

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

Задать свой вопрос
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 lt;= days ) do begin
    sum := sum + (sum * discount); я не до конца понял задание, почему, быстрее всего, придется здесь поменять
    sum := sum + 3;
    days2 := days2 + 1;
  end;
  writeln('Ответ: ', sum);
end.
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт