Регистрация
diduh2002
01.02.2023 16:00
Информатика
Есть ответ 👍

Вфайле input.txt записаны строки сколько их неизвестно заменить все слова короче на в общем и записать результат в файл output.txt на языке паскаль

263
303
Посмотреть ответы 2

Ответы на вопрос:

WhiteBear2003
WhiteBear2003
4,4(95 оценок)

//input должен быть в кодировке cp866 !

var i: integer; var f,g: text; var s: string; begin  assign (f, 'input.txt');   assign (g, 'output.txt');   reset(f);   rewrite(g);   while not (eof(f)) do readln(f, s);   while(pos('короче', s)> 0) do begin      i: =pos('короче', s);       delete(s, i, 7);       insert('в общем',s, i);   end;   writeln(g,s);   close(f);   close(g);   readln; end.

Gagarin51
Gagarin51
4,5(55 оценок)

Объяснение:

dlina — идентификатор (имя) массива;

для объявления используется служебное слово Array (в переводе с англ. «массив» или «набор»);

[1..3] — в квадратных скобках ставится номер (индекс) первого элемента, затем две точки и индекс последнего элемента массива, т.е. по сути, указывается количество элементов; количество элементов массива называется размерностью массива

of integer (с англ. «из целых чисел») — указывает, к какому типу относится массив, of здесь — служебное слово.

Популярно: Информатика