<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
1 символ = 1 байт
40*50*10=20000 символов всего
12500 байт = 1562,5 бит
20000:1562,5=13 (приблизительно)
N-мощность алфавита
2^13=8192
Ответ: N=8192
Ответ:
Может быть опасный вирус.
Способы защиты: установить антивирус и сразу же обновлять операционную систему а не ждать полвека.
Могут тебя хакнуть.
Способы защиты: не говорить свой пароль любым знакомым даже лучшим друзьям. А также ставить надежные пароли а не 1 2 3 4 а например 8 5 6 7
Могут вычислить твой IP и доставать тебя в реальной жизни.
Способы защиты: поставить турбо VPN
Могут вычислить твой пин-код и снять все твои деньги
Способы защиты: не говорить свой пароль любым знакомым даже собственным родителям!!!!!!!!!!!!!!!!!!!!!
Обдурить тебя сказочкой Вы выиграли миллион доларов
Способы защиты: Удалять весь спам.
Var b, v, t:integer;begin write('Skolko bilo bakteriy?'); readln(b); v := 1; t := 0; while b > 0 do begin b := b - v; b := b * 2; v := v * 2; t := t + 1; end; writeln(t);<span>end.</span>