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.
Имя файла ''Физика.doc.''
256 цветов - 8-ми битная шкала цветности, т. е. 8 бит на точку.
<span>120 байт = 960 бит. </span>
<span>960 бит/8 битов = 120 точек</span>
<em>// PascalABC.NET 3.3, сборка 1547 от 07.10.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var x:=ReadReal('x=');
Writeln('y=',3*x*x/Cos(2*x))
end.
<u>Пример</u>
x= -0.57
y=2.33408244304191