по жалуйста не могу понять где ошибка в коде Делфи . Условия : Список робiтникiв заводу: прiзвище, рiк народження, посада, зарплатня, освіта. 2 Визначити робiтника з максимальною зарплатнею й надрукувати усi вiдомостi про нього.

230

496

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

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

ByGaTiVlAdLeN

Информатика

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

Var str: string; var x,y: char; var i: integer; begin writeln('введите строку: '); readln(str); writeln('введите символ x: '); readln(x); writeln('введите символ y: '); readln(y); i: =1; while i < = length(str) do if str[i] = y then begin insert(x, str, i + 1); i : = i + 2; end else i: = i + 1; writeln(str); end.