1) Дано слово s. Получить слово t, образуемое путем про

чтения слова s, начиная с его конца.

2) Дано предложение. Определить, сколько в нем одина

ковых соседних букв.

1)

var s, t:string; i:integer;

begin

writeln ('Введите слово:') ;

readln (s) ;

t:='';

for i:=1 to length (s) do

t:=s[i]+t;

writeln (t) ;

end.

Пример: Введите слово:

телефон

нофелет

2) Пробелы учитываются (только пробелы).

var s, t:string; i, k:integer;

begin

writeln ('Введите предложение:') ;

readln (s) ;

t:=s;

while pos (' ', t) >0 do delete (t, pos (' ', t),1) ;

for i:=1 to length (t) - 1 do

if t[i]=t[i+1] then k:=k+1;

writeln ('k = ', k) ;

end.

Пример:

Введите предложение:

колонна автомобилей медленно объезжала аул

k = 5