Чтобы удобнее найти было, не?
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
Форма представления информации.
• текстовую (совокупность алфавитных, цифровых и специальных символов, с помощью которых информация отображается на бумажном носителе или экране монитора);
• графическую (графики, диаграммы, схемы и рисунки);
• звуковую (звуковые сигналы и радиоволны, применяемые в радиовещании, телефонии);
• видеоинформацию (световые сигналы, воспринимаемые зрением);
• мультимедиаинформацию (текстовая, графическая, звуковая и видеоинформация, представляемая с помощью компьютерных средств).
Program sr;
var a,b,c,S: real;
begin
readln(a,b,c);
S:=(a+b+c)/3;
writeln(S);
end.