Помогите пожалуйста с задачей по информатики. Задача №1. Умножение строки. Результат...

Question

Помогите пожалуйста с задачей по информатики.
Задача №1. Умножение строки.
Результат умножения строки на целое число определяется следующим образом:
1. Результат умножения пустой строки на любое число - есть пустая строка.
2. Результат умножения любой строки на 0 - есть пустая строка.
3. Непустая строка S, умноженная на положительное число к - есть к повторов строки S. Например, строка "abc" при умножении на число 3 дает строку "abcabcabc".
4. Непустая строка S. умноженная на отрицательное число к - есть к повторов перевернутой строки S. Например, строка "abc" при умножении на число -4 дает строку "cbacbacbacba".
Ваша задача состоит в написании программы, которая умножит заданную строку на заданное число.
Входные данные.
Во входном файле input.txt в первой строке записана строка S. Во второй строке записано целое число к.
Выходные данные.
В выходной файл output.txt ваша программа должна вывести результат умножения строки S на число к.

Answer 1

// PascalABC.NET 3.3, сборка 1634 от 14.02.2018
// Внимание! Если программа не работает, обновите версию!

begin
  var a:=ReadAllLines('input.txt');
  var n:=a[1].ToInteger;
  if n<0 then begin n:=-n; a[0]:=a[0].Inverse end;<br>  WriteAllText('output.txt',n*a[0])
end.