Дано имя файла и целые положительные числа n и k. создать текстовый файл с указанным именем и записать в него n строк,каждая из которых состоит из k символов *(звездочка) данные: имя файла: ski.text n=10 k=15;
138
446
Ответы на вопрос:
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.
Популярно: Информатика
-
masha00700919.06.2022 14:53
-
ektgdb22.06.2022 06:41
-
марс5605.11.2021 07:38
-
rafael2003ggwp12.06.2020 00:26
-
алсу15011.06.2022 19:20
-
эрика8629.05.2020 15:46
-
GEgor00414.02.2022 16:36
-
Сирениюм17.08.2021 09:51
-
saenkolydmila04.05.2022 23:59
-
odariya02.06.2021 12:15