nelli977
а можете решить еще одну задачу подобную? пожалуйста
nelli977
Организовать вывод значений с точностью до двух чисел после запятой (например, в записи writeln(‘a=’,a:5:2) будет выведено всего 5 цифр на все число, и 2 цифры после запятой):(x3-3/x)*1,5
Answers & Comments
Verified answer
var num, deg: integer;
res: real;
i: byte;
begin
write('Число: ');
readln(num);
deg :=6;
res := 1;
i := 0;
while i < abs(deg) do begin
res := res * num;
i := i + 1
end;
if deg < 0 then
res := 1 / res;
writeln(res);
end.