1)дано слово s. получить слово t, образуемое путем про чтения слова s, начиная с его конца. 2)дано предложение. определить, сколько в нем одина ковых соседних букв.

235

355

Посмотреть ответы 2

Ответы на вопрос:

Shady2002

Информатика

4,4(27 оценок)

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