Program KrisWoo; uses crt; var a,n:integer; st:real; begin writeln('*** alphaues is thinking... ***'); writeln('*** OK ***'); write('Введите число а='); readln(a); write('Bведите число n='); readln(n); if n>=0 then begin st:=exp(ln(a)*n); writeln('Результат: ',a,' в степени ',n,' равно ',st); end else writeln('Число n должно быть неотрицательно!'); end.
var a,n:integer; p:real; begin writeln('введите число а');readln(a); writeln('введите число n');readln(n); p:=exp(ln(a)*n); writeln('ответ =',p:4:2); end.
В двоичной системе: 1243(10)=2^10+2^7+2^6+2^4+2^3+2^1+1 = 1024+128+64+16+8+2+1 = 1243(10) =10011011011(2) В восьмиричной системе: разбиваете двоичное представление на группы по 3 бита справа налево 011 = 3 011 = 3 011 = 3 10 = 2 Тогда в восьмиричной системе: 2333(8) = 2*8^3+3*8^2+3*8^1+3 = 1024+192+24+3=1243(10) В шестнадцатиричной системе: разбиваете двоичное представление на группы по 4 бита справа налево 1011 = B = 11(10) 1101 = D(16) = 13(10) 100 = 4 Тогда в шестнадцатиричной системе 4DB(16) = 4*16^2+13*16^1+11 =1024+208+11=1243(10)
// PascalABC.Net 3.0, сборка 1088 const n=30; var a:array[1..n] of integer; i,k:integer; begin Randomize; Writeln('*** Исходный массив ***'); k:=0; for i:=1 to n do begin a[i]:=Random(1001); Write(a[i],' '); if (a[i] mod 3 = 0) and (a[i] mod 10 = 1) then Inc(k) end; Writeln; Writeln('Количество найденных элементов равно ',k) end.
Паскаль АВС:
Program KrisWoo;
uses crt;
var
a,n:integer;
st:real;
begin
writeln('*** alphaues is thinking... ***');
writeln('*** OK ***');
write('Введите число а=');
readln(a);
write('Bведите число n=');
readln(n);
if n>=0 then
begin
st:=exp(ln(a)*n);
writeln('Результат: ',a,' в степени ',n,' равно ',st);
end
else
writeln('Число n должно быть неотрицательно!');
end.