begin
var (m, p) := ReadInteger2('Укажите число и показатель степени:');
if p = 0 then
Write(1)
else
begin
var z := Sign(p);
p := Abs(p);
var r: int64 := m;
for var i := 2 to p do
r *= m;
if z > 0 then
Write(r)
else
Write(1 / r);
end;
end.
==PascalABC.NET==
1)Каждые 15 минут вставать из-за компьютера и делать зарядку для глаз (1 минута)
2)Не сутулится, увлекшись работой и позабыв обо всем, близко смотря в экран
3)Находится на безопасном для глаз расстоянии от экрана
Var a:array[1..12,1..20] of real;
i,j,n:integer;
s:real;
begin
// Заполним массив случайными значениями для теста
for i:=1 to 12 do
for j:=1 to 20 do
a[i,j]:=random*20000;
writeln('Номер сотрудника ');
readln(n);
for i:=1 to 12 do
s:=s+a[i,n];
writeln('Зарплата за год ',s);
end.
Var
a,b:Integer;
Begin
Read(a,b);
if (a>b) then Writeln(b,' ',a)
else Writeln(a,' ',b);
end.
При прохождении первого цикла массив заполнится так:
А = 1, 2, 3, 4, 5, 6, 7, 8, 9, 10
t=1
А во втором цикле в задании ошибка. Цикл идет от 0 до 9
A(-1) существовать не может