НУ конечно сканер! сканер это отдельный предмет который используется для скидывания изображение реальных предметов в компьютер!
Var a,s: real;
begin
write('длина стороны: ');
readln(a);
s:=a*a*sin(pi/3)/2;
writeln('площадь треугольника = ',s:6:4);
end.
<span>
</span>
Наверное файлы, скорее всего
Хлеба ни куска, так и в горле тоска.<span>Чеснок да редька - так и на животе крепко.
</span>Завтрак съешь сам, обед раздели с другом, ужин - отдай врагу.Когда я ем я глух и нем.недосол-на столе,пересол-на спине...<span><span>Без блина не маслена; без пирога не именинник.
Без ложки и добрый едок станет.
Без соли и хлеб не естся.
Без соли невкусно, а без хлеба несытно. Без соли стол кривой.
</span></span>
{
написано на PascalABC.NET но должно работать во всех Паскалях.
Скриншот результата в приложении
}
PROGRAM power_recursive;
var
n,p:word;
function power(num:word; pow:byte):word;
begin
if (pow<2) then
power:=num
else
power:=num*power(num, pow-1);
end;
BEGIN
write('Введите основание степени : '); readln(n);
write('Введите показатель степени >0 : '); readln(p);
writeln( power(n,p) )
END.