Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.83/6: Рейтинг темы: голосов - 6, средняя оценка - 4.83
0 / 0 / 0
Регистрация: 20.01.2010
Сообщений: 7
1

Дана последовательность, состоящая из 10 слов. Напечатать те слова последовательности, которые имеют нечётное количество символов

20.01.2010, 13:53. Просмотров 1232. Ответов 1
Метки нет (Все метки)


Дана последовательность, состоящая из 10 слов. Напечатать те слова последовательности, которые имеют нечётное количество символов
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
20.01.2010, 13:53
Ответы с готовыми решениями:

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

Дана последовательность слов. Напечатать все слова последовательности, которые встречаются в ней по одному разу.
1.8. 2.Составить программу печати в возрастающем порядке всех цифр, входящих в десятичную запись...

Напечатать все слова последовательности, удалив из каждого слова нечётные буквы, если слово имеет нечётное количество символов
Напечатать все слова последовательности, удалив из каждого слова нечётные буквы, если слово ...

Напечатать те слова последовательности, которые отличны от последнего слова и имеют максимальную длину
Дана последовательность, содержащая от 2 до 50 слов, в каждом из которых от 1 до 8 строчных...

1
Retired
7720 / 2552 / 671
Регистрация: 17.10.2009
Сообщений: 5,100
20.01.2010, 15:23 2
Лучший ответ Сообщение было отмечено 3965469 как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
uses
  Crt;
const
  dividers=[' ',',','.',';',':','-','=','+'];{äîïèñàòü íóæíûå}
var
  s,temp:string;
  i:integer;
begin
  ClrScr;
  writeln('Ââåäèòå ñòðîêó...');
  readln(s);
  temp:='';
  WriteLn('Ñëîâà, èìåþùèå íå÷åòíóþ äëèíó:');
  for i:=1 to length(s) do
  begin
    if not (s[i] in dividers) then
      temp:=temp+s[i];
    if ((s[i] in dividers) or (i=length(s))) and (temp<>'') then
    begin
      if odd(Length(temp)) then
        Write(temp,' ');
      temp:='';
    end;
  end;
  WriteLn
end.
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
20.01.2010, 15:23

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь или здесь.

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

Дана последовательность слов. Вывести на экран те слова последовательности, которые отличны от последнего слова
Не работает программа по условию: Дана последовательность слов. Вывести на экран те слова...

Дана строка текста, состоящая из слов. Слова отделяются друг от друга одним из специальных символов, которые описываются во множестве [‘-’, ‘*’, ‘/
Дана строка текста, состоящая из слов. Слова отделяются друг от друга одним из специальных...

Дана строка, состоящая из слов, разделенных пробелами. Вывести слова этой строки, которые отличны от последнего слова
ана строка, состоящая из слов, разделенных пробелами. Вывести слова этой строки, которые отличны от...


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

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

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