var s:string;
ns:integer;
begin
readln(s);
ns:=pos('... ',s);{ищем слово, которое будем заменять}
while ns>0 do {повторяем действия пока в тексте есть это слово}
begin
... {удаляем слово}
...('...',s,...);{вставляем новое слово}
...{ищем снова слово}
end;
writeln(s);
end.
ТЕСТ
ПРАКТИЧЕСКАЯ ЧАСТЬ
Задание 1. Запустите Паскаль.
Задание 2. Выполнить программу. Определить, что она делает.
var s, i: string;
np:integer;
begin
writeln('Введите имя и фамилию в строку через пробел');
readln(s);
np:=pos(' ',s);
i:=copy(s,1,np-1);
writeln(i);
end.
Задание 3. Составить программу, которая запрашивает число и месяц рождения вашего рождения. Затем выводит только число. В числе может быть как одна цифра, так и две.
Пример:
Ввод: 17 мая
Вывод: 17
