Это всё деревья)). Просто де
Var
S: string;
i: byte;
tmp: boolean;
begin
write('Введите строку: '); readln(S);
for i := 1 to Length(S) do
begin
if ((S[i] = '*') and (tmp = false)) then
begin
S[i] := '-';
tmp := true;
end;
if tmp = true then S[i] := '-';
end;
writeln(S);
end.
Книгопечатание — процесс создания печатной продукции. Термин обычно употребляют в историческом контексте.
Растение-дерево-яблоня(груша)
растение-гриб-подосиновик(лисичка)
здание-школа-школьник(учитель)
Нельзя более 5000 символов, поэтому просто дам ссылку http://school-25.ru/informatika/uch_8kl_sem/04.html