// PascalABC.NET 3.2, сборка 1427 от 24.04.2017 // Внимание! Если программа не работает, обновите версию!
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.
Пример Введите натуральные х и у: 5 8 Результат 2348542582773833227889480596789337027375682548908319870707290971532209025114608443463698998384768703032325601
1.
var
A: array [1..10] of integer;
max, i: integer;
begin
for i:=1 to 10 do // заполнение массива
A[i] := random(100) - 50;
max := -51;
for i:=1 to 10 do // обработка массива
if (A[i] < 0) and (A[i] > max) then
max := A[i];
writeln(max);
end.
2.
var
A: array [1..1000] of integer;
kol, i, N: integer;
begin
readln(N);
for i:=1 to N do // заполнение массива
A[i] := random(100) - 50;
for i:=1 to N do // обработка массива
if A[i] mod 2 = 0 then
inc(kol);
writeln(kol);
end.