Подготовка к самостоятельнрй работе

1.     Описание строковых и символьных величин

Var s:string; m:char

2.     Длина величины s

length(s)

3.     Сложить 1 и предпоследний символы одной строки

S[1]+ S[ length(s)-1]

4.     Сложить 2-ой и последний символы разных строк

S[2]+ S[ length(m)]

5.     Сравнить длины 2ух строк

if length(s)<  length(d)

6.     написать цикл и проверить совпадает ли символ величины с ‘- ‘ и выдать сообщение совпадает

for i:=1 to length(s) do if s[i]=‘- ‘  then writeln('совпадает  ');

7.     написать цикл проверить совпадает ли символ с символом ‘З ‘ и подсчитать количество совпадений

for i:=1 to length(s) do if s[i]=‘З ‘  then k:=k+1; { подсчет совпадений }

8.     написать цикл проверить совпадает ли сим. с символ ‘Е ‘и вывести его порядковый номер

for i:=1 to length(s) do if s[i]=‘  Е ‘  then writeln('индекс  ',  i);

9.     написать цикл, заменяющий все буквы «В» на  « С»

for i:=1 to length(s) do if s[i]=‘ В‘  then  s[i]=‘С‘ ;

10.           написать цикл вычисляющий сколько слов начинается с буквы Ю.