===== PascalABC.NET =====
function Percent(a, b:real) := a * b / 100;
begin
var x := ReadReal('Введите число:');
var p := ReadReal('Введите процент:');
Writeln(p,'% от ', x, ' = ', Percent(x, p))
end.
Copyright © 2025 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
===== PascalABC.NET =====
function Percent(a, b:real) := a * b / 100;
begin
var x := ReadReal('Введите число:');
var p := ReadReal('Введите процент:');
Writeln(p,'% от ', x, ' = ', Percent(x, p))
end.