Question

Информатика 8 класс, делать всё в pascal abc
задано слово “вертикаль”.
а) составить из букв слова новые слова тир, ветка и тик.
б) вывести длину исходного слова
в) скопировать в новое слово буквы с 1 по 4
г) удалите из исходного слова 2 последние буквы и сочетание “тик”
д) вставьте нужное сочетание букв в полученное после удаления букв слово, чтобы получилось веревка
е) найти номер первой буквы “е” в полученном слове
результаты каждого действия выводить на экран.

Answer 1

program vertical;

var i:integer;

s:string;

begin

 s := 'Вертикаль';

 write(copy(s,4,2)+copy(s,3,1) +' '); // тир

 write(copy(s,1,2)+copy(s,4,1)+copy(s,6,2) + ' '); // ветка

 writeln(copy(s,4,2)+copy(s,6,1)); // тик

 writeln('Длина исходного текста: ',s.Length);  

 writeln(copy(s,1,4)); // верт

 Delete(s,4,3);

 Delete(s,s.Length - 1,2);

 writeln(s); // вера

 insert('евк',s,4);

 writeln(s); // веревка

 writeln('Буква "е" находится на позиции: ', s.IndexOf('е') + 1);

end.

Объяснение: