Задание 19 и 22 ноября

Всем и 10 а и 10 б
В тетрадь выписать команды, и что они обозначают.
1)ТЕСТ

1. var st: string;
2. k:=length(a);
3. for i:=1 to length(st) do 
4. for i:=1 to length(st) do   if st[i]=b then k:=k+1;
5. write(’введите строку: ’); read(st);
6. st:=st+’ ’;
7. if length(a)>length(b) then writeln(a) else writeln(b);
8. if (st[i]=’д ’)
9. if (st[i]=’ .’) and (st[i+1]=’ ’)
10. if (st[i]<>’ ’) and (st[i+1]=’ ’) then n:=n+1

2)Практическая по задачам , похожим, что решали на уроке