домашнее задание на 19-23 октября. выучитьзадачи, что были на уроке . в тетрадь переписать задачи 5 и 6. Урок 12-16 октября. Подготовка к практической работе

1.  Var s:string; описание строки
2.  read(S); ввод  строки.
3.  write(s[3]); вывод на экран третьей буквы строки.
4. length(s) Длину строки можно узнать с помощью функции length.

Пример 1. Дана строка. Написать программу для вывода на экран первой буквы строки.

Var s:string; 

begin

  read(S); 

  write(s[1]); 

end.

Пример 2. Даны две строки. Написать программу для вывода на экран слова, полученного из суммы первых букв данных строк. 

Var a,b,s:string; 

begin

read(a); 

read(b);

 s:=a[1] +b[1]; 

 write(s); 

end.

Пример 3. Дана строка. Написать программу, выводящую на экран её длину.

Var s:string; 

begin

 read(s);

 writeln(length(s)); 

end.

Пример 4. Дана строка. Написать программу, выводящую на экран слово, составленное из первой и последней букв данной строки. 

Var s, rez: string; 

begin

read(s);

      rez:=s[1] + s[length(s)];

 write(rez); 

end.

Пример 5. Дана строка. Написать программу, определяющую, сколько раз в строке встречается буква «а» маленькая, русская.

Для решения задачи достаточно просмотреть каждый символ строки и сравнить его с буквой «а». При наличии совпадения необходимо увеличить на единицу счетчик количества букв «а». 

var s:string; 

       i,k:integer; 

begin 

   read(s); 

   k:=0;

for i:= 1 to length(s)  do if s[i]='а' then k:=k+1; 

write(k); 

end.

Пример 6. Дана строка. Написать программу, заменяющую в строке все буквы «а» на буквы «о».

Var s:string;

i:integer; 

begin

 read(s);

  for i:=1 to length(s) do if s[i]='а' then s[i]:='о' ;    

  write(s); 

      end.