Даю 40 баллов! Задача в Паскале Ввести с клавиатуры цену товара без скидки. Ввести скидку число от 0 до 100. Посчитать стоимость товара с учётом скидки Заранее большое спасибо!
Answers & Comments
danulpopov
Var price,discnt:real; begin Read(price); Readln(discnt); Writeln(price * (1 - discnt/100)); end.
Answers & Comments
price,discnt:real;
begin
Read(price);
Readln(discnt);
Writeln(price * (1 - discnt/100));
end.
Пример:
100
12.5
87.5