Дано имя файла и целые положительные числа N и K. Создать текстовый файл с указанным именем и записать в него N строк,каждая из которых состоит из K символов *(звездочка) Данные: Имя файла: ski.text N=10 K=15;
Дано имя файла и целые положительные числа N и K. Создать текстовый файл с указанным именем и записать в него N строк,каждая из которых состоит из K символов *(звездочка)
Данные:
Имя файла: ski.text
N=10
K=15;
Гость
Ответ(ы) на вопрос:
Гость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.
Не нашли ответ?
Похожие вопросы