Var x,y:real; n:integer;
function f(x:real;n:integer):real;
var i,st:integer;
begin
st:=1;
for i:=1 to n do st:=st*2;
f:=sin(x)*st;
end;
begin
writeln('x, n:');
readln(x,n);
y:=f(x,n);
writeln('x = ',x,' y = ',y);
end.

Пример:
x, n:
2 5
x = 2 y = 29.0975176584218

0 0

4 года назад

Прочитать ещё 2 ответа

Где здесь ошибка:long double g = 0hff1205;

Даниил85

Long double g=off 1205

0 0

4 года назад

Выберите допустимые имена файлов из перечисленных ниже:IVAN.DOC,LIN?.EXE,КУКУ.BMP,Поле чудес.EXE,TREE*.BMP,A.B.TXT

sokolikboss [25]

IVAN.DOC
КУКУ.BMP
A.B.TXT

LIN?.EXE нельзя ибо ? недопустимый символ.
TREE*.BMP опять же недопустимый символ
Поле чудес.EXE хз почему, но вроде как нельзя EXE русскими буквами называть при компиляции.

0 0

4 года назад

Обчислити площу поверхні та об'єм куба за наданою стороною

LauraCat [24]

Язык программирования какой?

0 0

4 года назад