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

Данные:

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

N=10

K=15;

Question

Информатика

Макся

24 августа, 22:47

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

Данные:

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

N=10

K=15;

+3

Ответы (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.