Решение задач

Вариант 1 1. Чему равна максимальная длина строки? 2. При помощи операций копирования и склейки из слова «жемчужина» составить слова: «чужие»,«муж». 3. A:=водопровод; delete(A,1,4); Результат типа string А:=….. Вариант 2 1. Как записывается условие проверки равенства двух строковх переменных? 2. При помощи операций копирования и склейки из слова «амортизация» составить слова: «мир»,«ритм». 3. A:=лось; B:=со; insert(B,A,3); Результат типа string А:= …

program pr1; uses crt; var st1,st2:string; begin clrscr; write('введите 1-ую строку: ');readln(st1); write('введите 2-ую строку: ');readln(st2); if length(st1)=length(st2) then writeln('длины совпадают') else writeln('длины не совпадают'); readln; end.

program pr2; uses crt; var st:string; i,k:integer; begin clrscr; write('введите строку: '); readln(st); k:=0; for i:=1 to length(st) do if copy(st,i,3)='кот' then k:=k+1; write('количество вхождений=',k); readln; end.

program pr3; uses crt; var st1,st2:string; T:integer; begin clrscr; write ('введите строку: '); readln(st1); write ('введите слово: '); readln(st2); T:=pos(st2,st1); write('введенное слово начиеается с ',t,' позиции'); readln; end.

program pr4; uses crt; var st:string; i,k:integer; begin clrscr; write ('введите строку: ');readln(st); k:=0; for i:=1 to length(st) do if st[i]=',' then k:=k+1; write('количество запятых=',k); readln; end.

program pr5;uses crt; var st:string; i:integer; begin write('введите строку:'); readln(st); for i:=1 to length(st) do if copy(st,i,2)='ку' then begin delete(st,i,2); insert('за',st,i); end; write(st); readln; end.

Дана строка, заканчивающаяся точкой. Посчитать, сколько в ней слов Дана строка, посчитать, сколько в ней букв «а», «о», «е». (Примечание: используйте конструкцию case… of)