Решить по паскалю 1. задан текст. удалить из текста знаки («») 2.дан текст, в котором слова отделяются пробелами, в конце стоит точка. поменять в тексте первое и последнее слово местами.

ayazhanbeibit5 ayazhanbeibit5    3   11.07.2019 19:40    2

Ответы
kozlovavika200 kozlovavika200  17.09.2020 23:23
Var S:string;
i,N:integer;
begin
Readln(S);
N:=length(S);
i:=i+1;
While i<=n do
begin
If (S[i]='«') or (S[i]='»') then
begin
Delete(S,i,1);
i:=i-1;
n:=n-1;
end;
i:=i+1;
end;
Writeln(S);
end.

var S,A,B:string;
i,k,l,N:integer;
begin
Readln(S);
N:=length(S);
For i:=1 to N do
If S[i]=' ' then
begin
k:=i;
break;
end;
For i:=N downto 1 do
If S[i]=' ' then
begin
l:=i;
break;
end;
A:=Copy(S,1,k-1);
B:=Copy(S,l+1,N-l-1);
Delete(S,l,N-k);
Delete(S,1,k);
S:=B+' '+S+' '+A+'.';
Writeln(S);
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика