Решаем задачи Абрамян на Паскале. String42

String42. Дана строка, состоящая из русских слов, набранных заглавными буквами и разделенных пробелами (одним или несколькими). Найти количество слов, которые начинаются и заканчиваются одной и той же буквой.

Решение:

program String42;
var
 S:String;
 i,Num:integer;
 beginC:Char;

begin
  Write('S: ');
  Readln(S);

  i:=1;
  Num:=0;
  beginC:=S[1];

  While (i<=Length(S)) do
   begin
    if (S[i]=' ') and (S[i-1]<>' ') then
      if S[i-1]= beginC then inc(Num);

    if (S[i]=' ') then beginC:=s[i+1];

    inc(i);
   end;
  Writeln(Num);
end.

program String42;

var

S:String;

i,Num:integer;

beginC:Char;

begin

Write('S: ');

Readln(S);

i:=1;

Num:=0;

beginC:=S[1];

While (i<=Length(S)) do

begin

if (S[i]=' ') and (S[i-1]<>' ') then

if S[i-1]= beginC then inc(Num);

if (S[i]=' ') then beginC:=s[i+1];

inc(i);

end;

Writeln(Num);

end.

Другие задачи из раздела String можно посмотреть здесь.

Комментарии 4

BornInRussia

21.05.2017 в 00:45

в программе нет проверки последнего слова

if s[length(S)] = beginC then
inc(Num);

Ответить
- Аноним
  
  29.05.2017 в 20:22
  
  И куда её вставить?
  
  Ответить

на Python:

line = input("введите строку:")
count_letters = 0
count_words = 0

while count_letters < len(line):
    if line[count_letters].isspace():
        count_letters += 1
    else:
        code_letter = ord(line[count_letters])
        while line[count_letters].isspace() is not True:
            count_letters += 1
            if count_letters == len(line) - 1:
                line += " "
        if code_letter == ord(line[count_letters - 1]):
            count_words += 1

print(count_words)

line = input("введите строку:")

count_letters = 0

count_words = 0

while count_letters < len(line):

if line[count_letters].isspace():

count_letters += 1

else:

code_letter = ord(line[count_letters])

while line[count_letters].isspace() is not True:

count_letters += 1

if count_letters == len(line) - 1:

line += " "

if code_letter == ord(line[count_letters - 1]):

count_words += 1

print(count_words)

Ответить

еще вариант (на Python):

line = input("введите строку:")
list_lines = line.split()
count_word = 0
for count in range(0, len(list_lines)):
    temp = list_lines[count]
    if ord(temp[0]) == ord(temp[len(temp) - 1]):
        count_word += 1
print(count_word)

line = input("введите строку:")

list_lines = line.split()

count_word = 0

for count in range(0, len(list_lines)):

temp = list_lines[count]

if ord(temp[0]) == ord(temp[len(temp) - 1]):

count_word += 1

print(count_word)

Ответить

Решаем задачи Абрамян на Паскале. String42

Комментарии:

Комментарии 4

Добавить комментарий Отменить ответ