1)дано слово s. получить слово t, образуемое путем про чтения слова s, начиная с его конца. 2)дано предложение. определить, сколько в нем одина ковых соседних букв.
235
355
Ответы на вопрос:
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
Популярно: Информатика
-
limon02330.08.2021 18:30
-
albinka201724.02.2022 19:58
-
Vita081406.05.2020 17:46
-
valeriadavrukova28.04.2020 14:24
-
mrden333326.10.2021 00:08
-
Jeinm07.03.2022 09:29
-
sofiakobzeva22.04.2020 04:31
-
ник477412.10.2020 17:34
-
jelyrotos16.02.2020 17:13
-
Станислав201710.05.2022 07:32