Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.75/4: Рейтинг темы: голосов - 4, средняя оценка - 4.75
0 / 0 / 0
Регистрация: 12.02.2013
Сообщений: 10
1

В заданном тексте определить количество слов, которые заканчиваются на букву А

08.12.2013, 13:47. Показов 770. Ответов 2
Метки нет (Все метки)

Помогите перевести программу из АВС в Турбо Паскаль заранее спасибо.

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
var
  s : string;
  i, k : integer;
begin
  k := 0;
  write('строка: ');
  readln(s);
  s := s + ' '; 
  for i := length(s) downto 1 do
    if (s[i] = ' ') and (s[i-1] = 'A') then inc(k);
  write('количество слов, заканчивающихся на букву A: ', k);
  readln
end.
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
08.12.2013, 13:47
Ответы с готовыми решениями:

В заданном тексте найти слова, которые заканчиваются на ту же букву, что и первое
1)В заданном тексте найти слова, которые заканчиваются на ту же букву, что и первое .

Определить количество слов в тексте, которые заканчиваются согласной буквой. Вывести эти буквы
Обработка символьной информации с использованием множеств В файле дан текст, состоящий из...

В заданном тексте найти слова, которые заканчиваются на ту же букву, что и первое слово
В заданном тексте найти слова, которые заканчиваются на ту же букву, что и первое слово. Строка...

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

2
3450 / 2388 / 2135
Регистрация: 04.12.2011
Сообщений: 3,965
08.12.2013, 15:32 2
работает программа в Турбо Паскале
0
0 / 0 / 0
Регистрация: 12.02.2013
Сообщений: 10
08.12.2013, 15:53  [ТС] 3
Блин точно, спасибо
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
08.12.2013, 15:53

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

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

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

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


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.