парад паром сом сад | Var a, b, c, d:string[30]; begin a:=’_To be’; b:=’_or not’; c:=’That is the questions’; d:=a+b+a; writeln (d); writeln (c); end. | To be or not To be That is the question | Var a, b, c, d:string[100]; m,n:integer; begin a:=’Жил-был в норе под землей хоббит’ b:=’был’ c:=’хоббит’ m:=pos(b,a); n:=pos(c,a); writeln(b,’-‘,m); writeln(c,’-‘,n); end. |
был-5 хоббит-27 | Var x,y,z:string[10]; begin x:=’тепло’; y:=’ход’; z:=x+y; writeln(z) end. | теплоход | Var x:string[6]; begin x:=’поле’ + ‘новый’; writeln(х) end. |
8 19 | Var a, b, c, d,l,m,n,p:string[10]; begin a:=’пар’; b:=’ад’;c:=’ом’; d:=’c’; l:=a+b;m:=a+c; n:=d+c; p:=d+b; writeln(l,’’,m,’’,p) end. | полено | Var a, b:string[25]; begin a:=’computer’ b:=’calculation machine’ writeln(length(a),’’,length(b)); end. |
фирма | Var a, b:string[25]; begin a:=’computer’ b:=’calculation machine’ writeln(length(a)+length(b)); end. | 27 | Var a: string[10]; begin a:=’форма’ insert(‘и’,a,2); delete(a,3,1) writeln (a) end. |
лево лето компот | Var a, b, c, d,e:string[15]; begin a:=’стихотворение’; b:=copy(a,1,4); c:= copy(a,2,4); d:= copy(a,6,8); e:= copy(a,7,3); writeln (d); end. | Стих, тихо, творение, вор | Var a, b, c, d:string[15]; begin a:=’лекарство’; delete (a,3,5); writeln(a); delete(a,3,1); b:=’т’; insert(b,a,3); writeln(a); c:=’’; d:=’’; insert(d,c,3); writeln(c) end. |