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

Данные:

Имя файла: ski. text

N=10

K=15;

Question

Информатика

Асюша

4 января, 05:35

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

Данные:

Имя файла: ski. text

N=10

K=15;

+4

Ответы (1)

Знаете ответ на вопрос?

Зарема · 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.