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

Ответы 6

  • во первых ты не правильно скопировал порядок действий
    • Автор:

      kiki87
    • 6 лет назад
    • 0
  • во вторых переменные приминаются не в том порядке, сначала N а потом K
  • //PascalABC.Net 3.1 сборка 1200uses PT4;var s: string; i, j, K, N: integer; f: Text;begin Task('Text1'); Readln(s); Readln(N); Readln(K); Assign(f, s); Rewrite(f); for i := 1 to N do begin for j := 1 to K do Write(f, '*'); Writeln(f); end; Close(f)end.
    • Автор:

      francis14
    • 6 лет назад
    • 0
  • мое оптимизированное решение
  • uses PT4;var f: text; s: string; n, k, i: integer;begin Task('Text1'); 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.
    • Автор:

      leon30
    • 6 лет назад
    • 0
  • 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.
    • Автор:

      ernie
    • 6 лет назад
    • 0
  • Добавить свой ответ

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years