Question

Дано вещественное числа А. Напишите функцию вычисления процента В от этого числа

Answer 1

===== PascalABC.NET =====

function Percent(a, b:real) := a * b / 100;

begin

 var x := ReadReal('Введите число:');

 var p := ReadReal('Введите процент:');

 Writeln(p,'% от ', x, ' = ', Percent(x, p))

end.