Question

Даю 40 баллов!
Задача в Паскале
Ввести с клавиатуры цену товара без скидки.
Ввести скидку число от 0 до 100.
Посчитать стоимость товара с учётом скидки
Заранее большое спасибо!

Answer 1

Var
price,discnt:real;
begin
Read(price);
Readln(discnt);
Writeln(price * (1 - discnt/100));
end.

Пример:
100
12.5
87.5