Помогите срочно пожалуйста В стране кризис... цены скачут... Утром текущего дня цена плитки шоколада составляля P грв, но к вечеру его цена упала на 10%. За ночь котировки акций изменились и на утро следующего дня пришлось повы...
Помогите срочно пожалуйста
В стране кризис... цены скачут... Утром текущего дня цена плитки шоколада составляля P грв, но к вечеру его цена упала на 10%. За ночь котировки акций изменились и на утро следующего дня пришлось повысить цену на плитку шоколада на те же 10%. Сколько теперь стоит плитка шоколада?
Входные данные:
Во входном потоке задана цена плитки шоколада - вещественное число P.
Выходные данные:
Вывести единственное вещественное число с точностью два знака после запятой - нувую цену плитки шоколада.
Пример входного файла (input.txt):
10
Гость
Ответ(ы) на вопрос:
Гостьvar
p, r: real;
f: Text;
begin
Assign(f, 'input.txt');
Reset(f);
read(f, p);
Close(f);
r := p - 0.1 * p;
r := r + 0.1 * r;
writeln(r:0:2)
end.
Тестовое решение:
9.90
Не нашли ответ?
Похожие вопросы