Добавил:
Studfiles2
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:Контрольное задание №1-2 / 1-2 / zadanie_2
.pas program Zadanie_2;
var
B: integer;
A: real;
function res: real;
begin
res:=exp(B*ln(A))
end;
begin
B:=4;
A:=2.87;
write ('ђҐ§г«мв в: ',res:10:3);
readln;
end.
var
B: integer;
A: real;
function res: real;
begin
res:=exp(B*ln(A))
end;
begin
B:=4;
A:=2.87;
write ('ђҐ§г«мв в: ',res:10:3);
readln;
end.