Из слова "Викторина" составить 5 слов, используя команды delete/copy

Определите результат выполнения фрагмента программы и запишите его в тетрадь А) а:="канатоходец" b:=copy (a, 3,2) + copy (a, 7,3) + copy (a, 1,2) writeln (b). Б) t:='компьютер' x:=copy (t, 1,4) + 'oc'+copy (t, 7,3) writeln (x)

Program mm; var o, oo, v, n, n1, q1, r1, y1:string; l, x, b, z, y, r, q:integer; begin v:='вычислить '; read (n) ; n1:=n; q:=pos (' + or - ', n) ; q1:=copy (n, 1, q-1) ; val (q1, x, r) ; Delete (n, 1, q) ; r:=pos (' - or + ', n) ;

Рассчитать вручную, что будет выведено после следующих преобразований строки: var s: shortstring; begin s:='This if a nice business'; s: = copy (s, 3, 10) + copy (s, 1, 5) ; delete (s, 7, 12) ; s:=ansiuppercase (s) ; end; Решение?

Нельзя считывать данные этого типа паскаль (почему так выводится) program crt; var i: integer; string: (s, b, d, a) ; begin writeln ('магистратура') ; readln (a) ; s:=copy (a, 4,7) ; writeln (s) ; d:=copy (a, 4,8) ; writeln (d) ; b:=copy (a, 4,8) ;

Помогите перевести с Паскаля на Python: var k, s: string; n: integer; begin read (s) ; n : = 100; while n > 0 do begin n : = pos ('/', s) ; if n > 0 then begin k : = copy (s, 1, n - 1) ; writeln (k) ; delete (s, 1, n) ; end else n : = 0; end;