Question

Дано имя файла и целые положительные числа N и K. Создать текстовый файл с указанным именем и записать в него N строк,каждая из которых состоит из K символов *(звездочка) Данные: Имя файла: ski.text N=10 K=15;

Answer 1

Var
    f: text;
    s: string;
    n, k, i, j: integer;

begin
    readln(s);
    readln(n, k);
    
    assign(f, s);
    rewrite(f);
    
    s := '';
    for i := 1 to k do
        s := s + '*';
    
    for i := 1 to n do
        writeln(f, s);
    close(f);
end.