Дано предложение. замените в нем все слова s1 на слово s2. на free pascal

152

342

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

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

Настасья020704

Информатика

4,4(75 оценок)

Var p,s1,s2: string; l,i: integer; begin writeln('введите предложение: '); readln(p); write('s1 = '); readln(s1); write('s2 = '); readln(s2); l: =length(s1); i: =pos(s1,p); while i< > 0 do begin delete(p,i,l); insert(s2,p,i); i: =pos(s1,p); end; writeln(p); end. пример: введите предложение: купили в магазине резиновую зину, резиновую зину в корзинке принесли. s1 = зину s2 = зою купили в магазине резиновую зою, резиновую зою в корзинке принесли.

ОливияСэм

Информатика

4,5(23 оценок)

Существует, но лишено особого смысла. среднее арифметическое чисел - это отношение суммы чисел к их количеству. в некоем вырожденном случае, когда имеем одно число, сумма чисел равна этому числу, а количество - единице. в результате деления получаем исходное число, поэтому среднее арифметическое одного числа равно самому этому числу.