Функция Procent Опции

[Katolisa]

Написать функцию Procent, которая возвращает процент от числа, полученного в качестве аргумента.

Сообщение отредактировано: Katolisa - 10.01.2010 15:27

[Archon]

--------- ( не знаю что ещё нужно)

Не знаешь, что нужно для чего? Хотя, не надо быть телепатом:

program procent; 

uses crt;

function Procent(n: Real): Real;
begin
	Procent := n / 100;
end;

var n: Integer;
begin
	ClrScr;
	WriteLn('Введите число');
	ReadLn(n);
	WriteLn('Процент от числа ', n, ' равен ', Procent(n):0:2);
	ReadLn;
end.