<em>// PascalABC.NET 3.2, сборка 1427 от 24.04.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
function Pow(x,y:BigInteger):BigInteger;
begin
Result:=x;
for var i:=int64(2) to int64(y) do Result*=x
end;
begin
var x,y:integer;
Write('Введите натуральные х и у: '); Read(x,y);
if (x<=0) or (y<=0) then begin
Writeln('Неверный ввод'); Exit
end;
if x=1 then Writeln('Результат: ',y+1)
else begin
var x1:=Range(2,x).Aggregate(BigInteger(1),(a,b)->a*b);
Writeln('Результат ',Pow(x,y)+Pow(y,x1))
end
end.
<u>Пример</u>
Введите натуральные х и у: 5 8
Результат 2348542582773833227889480596789337027375682548908319870707290971532209025114608443463698998384768703032325601
Program Massiv;
Uses Crt;
var i,j:integer;
a: array[1..6,1..6] of integer;
begin
clrscr;
randomize;
for i:=1 to 6 do
begin
for j:=1 to 6 do
begin
a[i,j]:=random(101)-50;
end;
end;
for i:=1 to 6 do
begin
for j:=1 to 6 do
begin
write(a[i,j]:3);
end;
writeln;
end;
readkey;
end.
кажется( 1 )
предоставляющая доступ к связанныммежду собой документам, расположенным на различных компьютерах, подключённых к сети Интернет.
for i := 1 to n do a[i] := random(k), где n - число элементов массива, k - диапазон генерации случайных чисел
1) s:=1*2=2
2)s:=2*2=4
3)s:=4*2=8
4)s:=8*2=16
5)s:=16*2=32
6)s:=32*2=64
7)s:=64*2=128
Ответ: s:=128