Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.57/7: Рейтинг темы: голосов - 7, средняя оценка - 4.57
Отман
0 / 0 / 0
Регистрация: 17.04.2016
Сообщений: 17
1

Вывести второе слово из предложения

22.05.2016, 15:45. Просмотров 1263. Ответов 2
Метки нет (Все метки)

Дано предложение, состоящее из трех слов, разделенных одиночными пробелами. Вывести второе слово.
Формат ввода:

s - предложение
Формат вывода:

t - второе слово
Пример ввода:

My name is
Пример вывода:

name



Заранее спасибо!!!
0
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
22.05.2016, 15:45
Ответы с готовыми решениями:

Напечатать второе слово предложения в обратном порядке
Напечатать второе слово предложения в обратном порядке помогите пожалуйста...

Вывести первое слово каждого предложения
Помогите написать программу на Pascal Которая будет выводить Первое слово с...

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

Считать текст из файла и вывести на экран только предложения, содержащие заданное слово
Добрый день. форумчане! помогите, пожалуйста, со следующей задачей: Написать...

Образовать новое слово из символов, не входящих ни в первое слово, ни во второе
Ребят ,помогите пожалуйста сделать програму! Даны 2 слова;Образовать новое...

2
shilko2013
250 / 227 / 184
Регистрация: 02.04.2016
Сообщений: 887
Завершенные тесты: 1
22.05.2016, 17:58 2
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
var s,t:string;
c:char;
BEGIN
s:='';
Repeat //чтение до первого пробела
Read (c);
Until c=' ';
Repeat  //запись второго слова
Read (c);
s:=s+c;
Until c=' ';
Readln (t); //чтение конца строки
Writeln (s); //распечатка второго слова
END.
0
ezhukov67
22 / 22 / 39
Регистрация: 10.05.2014
Сообщений: 52
27.05.2016, 20:34 3
Лучший ответ Сообщение было отмечено Отман как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
uses  Crt;
var   s,s1:string;
      t,i:integer;
begin
      ClrScr;
       Writeln('String :');
        Readln(s);
         Writeln;
       s1:='';
        for i:=1 to Length(s) do
         if s[i]=' '
          then
           begin
             t:=i+1;
             Break;
           end;
        for i:=t to Length(s) do
         if s[i]<>' '
          then s1:=s1+s[i]
          else Break;
       Writeln(s1);
      ReadKey;
end.
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
27.05.2016, 20:34

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

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

Составить программу, определяющую, на какую букву оканчивается второе слово предложения
составить программу, определяющую, на какую букву оканчивается второе слово...


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

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

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