Информатика 8 класс, делать всё в pascal abc
задано слово “вертикаль”.
а) составить из букв слова новые слова тир, ветка и тик.
б) вывести длину исходного слова
в) скопировать в новое слово буквы с 1 по 4
г) удалите из исходного слова 2 последние буквы и сочетание “тик”
д) вставьте нужное сочетание букв в полученное после удаления букв слово, чтобы получилось веревка
е) найти номер первой буквы “е” в полученном слове
результаты каждого действия выводить на экран.
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.
Объяснение: