Пользователь работал с каталогом девочки. сначала он поднялся на один уровень вверх, затем спустился на один уровень вниз, потом ещё раз спустился на один уровень вниз. в результате он оказался в каталоге с: \школа\ученики\9класс.
// 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
Var a,b:longint; function sum (n:integer):integer; var s:integer; begin s:=0; while (n<>0) do begin s:=s+n mod 10; n:=n div 10; end; sum:=s; end; begin write ('A = '); readln (a); write ('B = '); readln (b); if sum(a) > sum(b) then writeln ('Сумма цифр 1ого числа больше на ',sum(a)-sum(b)) else if sum(b) > sum (a) then writeln ('Cумма цифр 2ого числа больше на ',sum(b)-sum(a)) else writeln ('Сумма цифр 1ого числа равна сумме цифр 2ого числа'); readln; end.
Это значит что вначале он находился в каталоге "Ученики"
из ученики он поднялся на 1 уровень вверх- в каталог школа, затем на один уровень вниз в ученики затем на 1 уровень вниз в 9класс