Нужно с коментариями дана строка символов ( 2-3 строки ) в файле f1. составить функцию , формирующую новую строку : заменить все повторные вхождения символа пробел одним символом пробела , в начало строки добавить слово " hачало " , в конец - слово " коhец ". записать новую строку в файл f1 после исходной.

121

377

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

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

паша535

Информатика

4,8(21 оценок)

Запись в файл в функцию не входит //pascalabc.net 3.2.0.1467 function f(s: string): string; begin s : = s.replace(' ', ' '); s : = ' hачало ' + s + ' коhец '; result : = s; end; begin writeln(f('1 2 3 4')); writeln(f('')); writeln(f('vrgvert revt vt ')); end.

starkoviv23

Информатика

4,7(96 оценок)

Var a, b: array[1..110000] of integer; i, n, j, cnt: integer; begin readln(n); for i : = 1 to n do read(a[i]); write(a[1], ' '); for i : = 2 to n - 1 do begin if a[i] > 0 then write(a[i], ' '); i if (a[i] < 0) and (a[i - 1] > 0) and (cnt = 0) then for j : = i to n do begin if (j = n) and (a[j] < 0) then begin cnt: = 0; break; end; if a[j] > 0 then break else cnt: = cnt + 1; end; if cnt = 0 then write(a[i], ' '); if cnt > 0 then cnt : = cnt - 1; end; write(a[n]); end.