Всем и 10 а и 10 б
В тетрадь выписать команды, и что они обозначают.
1)ТЕСТ
2)Практическая по задачам , похожим, что решали на уроке
В тетрадь выписать команды, и что они обозначают.
1)ТЕСТ
- var st: string;
- k:=length(a);
- for i:=1 to length(st) do
- for i:=1 to length(st) do if st[i]=b then k:=k+1;
- write(’введите строку: ’); read(st);
- st:=st+’ ’;
- if length(a)>length(b) then writeln(a) else writeln(b);
- if (st[i]=’д ’)
- if (st[i]=’ .’) and (st[i+1]=’ ’)
- if (st[i]<>’ ’) and (st[i+1]=’ ’) then n:=n+1
Комментариев нет:
Отправить комментарий