Пример программы на Pascal для расчета процента от заданного числа:
program CalculatePercentage; var number, percentage, result: real; begin writeln('Введите число:'); readln(number); writeln('Введите процент:'); readln(percentage); result := (percentage / 100) * number; writeln('Результат: ', result:0:2); end.
Программа сначала запрашивает у пользователя число, к которому нужно найти процент, затем запрашивает процент, который необходимо посчитать. Затем происходит расчет процента от числа и выводится результат.
Пример программы на Pascal для расчета процента от заданного числа:
program CalculatePercentage;var
number, percentage, result: real;
begin
writeln('Введите число:');
readln(number);
writeln('Введите процент:');
readln(percentage);
result := (percentage / 100) * number;
writeln('Результат: ', result:0:2);
end.
Программа сначала запрашивает у пользователя число, к которому нужно найти процент, затем запрашивает процент, который необходимо посчитать. Затем происходит расчет процента от числа и выводится результат.