Спо информатики. №1. умножение строки. результат умножения строки на целое число определяется следующим образом: 1. результат умножения пустой строки на любое число - есть пустая строка. 2. результат умножения любой строки на 0 - есть пустая строка. 3. непустая строка s, умноженная на положительное число к - есть к повторов строки s. например, строка "abc" при умножении на число 3 дает строку "abcabcabc". 4. непустая строка s. умноженная на отрицательное число к - есть к повторов перевернутой строки s. например, строка "abc" при умножении на число -4 дает строку "cbacbacbacba". ваша состоит в написании программы, которая умножит заданную строку на заданное число. входные данные. во входном файле input.txt в первой строке записана строка s. во второй строке записано целое число к. выходные данные. в выходной файл output.txt ваша программа должна вывести результат умножения строки s на число к.
// Внимание! Если программа не работает, обновите версию!
begin
var a:=ReadAllLines('input.txt');
var n:=a[1].ToInteger;
if n<0 then begin n:=-n; a[0]:=a[0].Inverse end;
WriteAllText('output.txt',n*a[0])
end.