var
x, y, result: real;
begin
readln(x, y);
result : = 1;
if y > 0 then
begin
while y < > 0 do
begin
result : = result * x;
y : = y - 1;
end;
end
else if y < 0 then
begin
while y < > 0 do
begin
result : = result * x;
y : = y + 1;
end;
result : = 1 / result;
end
else result : = 1;
writeln('x^y = ', result);
end.
вы имеете ввиду техника безопасности за компьютером? тогда вот:
при работе за компьютером необходимо соблюдать правила техники безопасности, чтобы не сломать компьютеры и другие приборы.
основные требования правил техники безопасности:
1) расстояние от глаз до монитора должно быть не менее 15 см
2) проверить подключение всех проводов
3) рабочее место всегда должна быть прибрано
4) сидеть прямо(ровная ! )
5) не работать более 45 минут без перерыва
6) во время перерыва делать зарядку
7)гигиенические нормы,а то есть чистые
Поделитесь своими знаниями, ответьте на вопрос: