1. Это с ручным вводом a и n var y, a, n, i: integer; begin write('Введите число '); Readln(a); write('Введите желаемую степень '); Readln(n); Write(a, '^', n, ' = '); y:=a; for i := 2 to n do y := y * a; Write(y); end.
2. А это с рандомизацией переменных var y, a, n, i: integer; begin a := random(30); n := random(7); Write(a, '^', n, ' = '); if n=0 then y:=1 else Begin y := a; for i := 2 to n do y := y * a; End; Write(y); end.
<script> function DeShifr() { let Text = document.getElementById("shifr").value; let L = Text.length; let NeChet = Text.substr(0,L/2+L%2); let Chet = Text.substr(L/2+L%2,L/2); let DeShifr = ""; for (let i = 0, c = 0, n = 0; i < L; i++) { DeShifr += (i%2?Chet[c++]:NeChet[n++]); } document.getElementById("DeShifr").innerHTML = DeShifr; } </script> </head> <body> <form> <label for="shifr">Введите зашифрованный тест сообщения:</label> <textarea id="shifr"></textarea> <button type="button" onCLick="DeShifr()">Расшифровать</button> <div id="DeShifr"></div> </form> </body> </html>
Var M: array[1..32767] of real; Min: real; N, i: integer; Begin Write('N = ');ReadLn(N); if (N <= 0) then WriteLn('Количество элементов должно быть положительно') else begin Write('Введите элементы массива в количестве ',N,' штук'); For i:= 1 to N do Read(M[i]); Min := M[1]; For i:= 2 to N do if (M[i] < Min) then Min := M[i]; WriteLn; Write('Получившийся массив:'); For i:= 1 to N do begin M[i] := M[i] / Min; Write(' ',M[i]); end; end End.
var
y, a, n, i: integer;
begin
write('Введите число ');
Readln(a);
write('Введите желаемую степень ');
Readln(n);
Write(a, '^', n, ' = ');
y:=a;
for i := 2 to n do
y := y * a;
Write(y);
end.
2. А это с рандомизацией переменных
var
y, a, n, i: integer;
begin
a := random(30);
n := random(7);
Write(a, '^', n, ' = ');
if n=0 then y:=1 else Begin
y := a;
for i := 2 to n do
y := y * a;
End;
Write(y);
end.