Question

Напишите программы, пожалуйста
1) Организовать ввод своей фамилии, имени, отчества в трех строковых переменных. При помощи склейки получить новую переменную (из трех введенных) и найти длину этой переменной.
2) При помощи функции удаления составить из слова «вертикаль» слово «ветер».

Answer 1

var s,t,s1,s2,s3:string; p,i:integer;begint:='вертикаль';s1:=t;s2:=t; s3:=t;Delete(s1,3,9);Delete(s2,1,3);Delete(s2,2,5);Delete(s3,1,1);Delete(s3,3,6);write(s1,s2,s3);end.