Файл пушкин.doc хранится на жестком диске в каталоге поэзия который является подкаталогом каталога / в таблице фрагменты полного имени файла: а б в г д е с: пушкин \ .doc поэзия востановите полное имя файла и закодируйте его буквами ( запишите соотвествующую последовательность букв без пробелов и запятых)

Бгагегвд думаю,что так..открывала смотрела свою книжку))

// f# [< entrypoint> ] let main argv =     let rec ( ** ) x n =         match n < 1 with         | true -> 1         | false -> x * (x ** (n-1))     let rec sumdigits x =         match x with         | x when x < 10 -> (x, 1)         | x ->             let res = x / 10 |> sumdigits             ((res |> fst) + (x % 10), (res |> snd) + 1)     let isarmstrong x =         let digitsinfo = sumdigits x         x = (fst digitsinfo) ** (snd digitsinfo)     let a = system.console.readline() |> system.int32.parse     let b = system.console.readline() |> system.int32.parse     let result = [a..b] |> list.filter (isarmstrong)     printf "result: %a" result     system.console.readkey true |> ignore     0

Для сред программирования dos (например, turbo pascal) удалите фигурные скобки, для сред windows (например, pascalabc.net) строки в фигурных скобках удалите полностью. {uses crt; } const   n=80;   digits=['0','1','2','3','4','5','6','7','8','9']; var   s: string[80];   i: integer; begin   {clrscr; }   writeln('введите текст (учитываются только 80 первых символов)');   readln(s);   for i: =1 to n do       if s[i] in digits then write(s[i]);   writeln;   for i: =1 to n do       if not(s[i] in digits) then write(s[i]);   writeln;   {readkey} end. тестовое решение: введите текст (учитываются только 80 первых символов) обь с притоком иртыш 5410км, амур с аргунью 4440км, лена 4400км, енисей 4102км 5410444044004102 обь с притоком иртыш км, амур с аргунью км, лена км, енисей км