Есть ответ 👍

Дана строка символов.найти количество слов,у которых первый последний символы между собой

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

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


uses crt; var s,sl: string; i,k: integer; beginwriteln('введите строку'); readln(s); s: =s+' '; sl: =''; for i: =1 to length(s) do if s[i]< > ' ' then sl: =sl+s[i] else begin if (sl[1]=sl[length(sl)]) and (length(sl)< > 0) then inc(k); sl: =''; end; writeln('количество слов, начинающихся и заканчивающихся одной буквой = ',k); readkeyend.


From random import randintn = int(m = 0z=0for i in range (n):     b = 10**i * randint(0,9)     m = m + b     if (b/10**i) % 2 == 0:         z = z+1print(m)print(z)

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