Регистрация
mashkakornilova
28.09.2021 06:31
Информатика
Есть ответ 👍

35 баллов. 3 во информатика. 8кл.​

235
421
Посмотреть ответы 1

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

Shady2002
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

Популярно: Информатика