Задать вопрос
9 января, 03:00

Создать текстовый документ с помощью Паскаля, в котором N строк и M символов в строке, и символы-цифры 1,2 ...

+3
Ответы (1)
  1. 9 января, 03:54
    0
    program proga;

    Var

    A: text;

    i, j, n, m : byte;

    d: string;

    Sim:char;

    Begin

    write ('Введите имя текстового файла ') ; {Например: "test" он создастся там где находится сама программа }

    read (d) ;

    assign (A, d) ;

    rewrite (A) ;

    write ('Введите количество строк: N = ') ;

    readln (n) ;

    write ('Введите количество символов в строке: M = ') ;

    readln (m) ;

    for I:=1 to n do

    begin

    Sim:=Chr (Ord ('1') + I-1) ;

    For J:=1 to m do

    write (A, Sim) ;

    writeln (A) ;

    end;

    close (A) ;

    end.
Знаете ответ на вопрос?
Не уверены в ответе?
Правильный ответ на вопрос 👍 «Создать текстовый документ с помощью Паскаля, в котором N строк и M символов в строке, и символы-цифры 1,2 ... ...» по предмету 📗 Информатика. Развернутая система поиска нашего сайта обязательно приведёт вас к нужной информации. Как вариант - оцените ответы на похожие вопросы. Но если вдруг и это не помогло - задавайте свой вопрос знающим оппонентам, которые быстро дадут на него ответ!
Искать готовые ответы