Var num, deg: integer;
res: real;
i: byte;
begin
write ('Число: ');
readln (num);
write ('Степень: ');
readln (deg);
res := 1;
i := 0;
while i < abs(deg) do begin
res *=num;
inc(i)
end;
if deg < 0 then
res := 1 / res;
writeln (res:10:5);
end.
Растровая графика (от лат. rastrum - грабли, то есть если разрыхлить землю граблями получится "эффект пикселей" по горизонтали и вертикали)
Не знаю как для других,для меня сложная задача,поэтому сделал её как смог
(TAN(b)+EXP(-(x+3)))*SQR(23)*SIN(a)
Так, как в условии записано, под корнем только 23. Если там и синус, то закрыывющую скобку после 23 перенести в самый конец.
Begin
m:=1;
k:=1;
read(n);
i:=1;
while i<>n do begin
k:=k+i;
m:=m*i;
i:=i+1;
end;
write(k,' ',m);
end.
Переменные, думаю, сами опишете)