Новые сообщения · Правила  
  • Страница 1 из 1
  • 1
Модератор форума: Berestovskiy  
Паскаль-строки.
Помогите пожалуйста,решить пару задач,оч надо!!!

1)Определить, сколько фамилий в списке имеют окончание «ов».

2)Даны два слова одинаковой длины. Присвоить переменной k число, равное количеству попарно одинаковых букв.

Заранее огромное спасибо))

1 | Автор: SvarovskI | 2009-06-18, 19:08 | Изменено: SvarovskI - Чт, 2009-06-18, 19:08   |  Репутация: [ + 0 ]
2) попробуй предыдущую букву сравнивать с настоящей, если они равны увеличивай к на единицу:

Code
...
...
for i:=1 to length(x) do
    if x[i]=x[i+1] then
       if (x[i]='a') and (x[i]='z') then
           inc(k);
...
...
2 | Автор: dimkachel | 2009-06-19, 00:01 | Изменено: dimkachel - Пт, 2009-06-19, 00:02   --------->
  • Страница 1 из 1
  • 1
Поиск: