Форум программистов, компьютерный форум, киберфорум
Наши страницы

Pascal (Паскаль)

Войти
Регистрация
Восстановить пароль
 
Scrilkor
0 / 0 / 0
Регистрация: 21.06.2015
Сообщений: 11
#1

Вывести слова в столбец с указанием длины каждого слова - Pascal

30.09.2015, 09:18. Просмотров 189. Ответов 1
Метки нет (Все метки)

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
var s:string;
    i,k,m:byte;
begin
writeln('Vvedit PIB : ');
readln(s);
s:=s+' ';
Writeln('Dovjuna ryadka : ',Length(s));
for i:=1 to length(s) do
if s[i]=' ' then m:=m+1;
writeln('kilkist sliv : ',m);
writeln('Dovjunu sliv');
k:=0;
for i:=1 to length(s) do
if s[i]<>' ' then k:=k+1
else
 begin
  if k<>0 then write(k,' ');
  k:=0;
 end;
end.
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
30.09.2015, 09:18
Здравствуйте! Я подобрал для вас темы с ответами на вопрос Вывести слова в столбец с указанием длины каждого слова (Pascal):

Вывести те слова строки, которые больше длины первого слова. - Pascal
Дана строка, содержащая более двух слов, между соседними словами – пробел. Вывести те слова строки, которые удовлетворяют следующему...

Исправить 3адачу: дана строка длиной n символов, Вывести все слова, отличные от последнего слова, предварительно удалив из слов нечетной длины его сре - Pascal
дана строка, между словами не менее одного пробела, в конце точка. Вывести все слова, отличные от последнего слова, предварительно удалив...

Напечатать все слова, отличные от последнего слова, предварительно удалив из каждого слова последнюю букву - Pascal
1) Программа. Дан текстиз строчных русских букв, закоторым следует точка. Напечатать этот текст заглавными русскими буквами. 2)...

Напечатать все слова, перенеся первую букву каждого слова в конец слова - Pascal
приветствую вас))) помогите пожалуйста даме... Текст задан строкой var St: string; Напечатать все слова, перенеся первую букву...

Изменить строку, продублировав слова, из которых можно составить слова-палиндромы четной длины - Pascal
Добрый вечер всем. На главной странице я увидел эту надпись: Я очень надеюсь на вашу помощь. Нет, не то, чтобы я совсем ничего в...

Вывести на экран все слова строки данной длины - Pascal
помогите!! на паскале

1
ZX Spectrum-128
Модератор
Эксперт Pascal/Delphi
3642 / 2629 / 1796
Регистрация: 05.06.2014
Сообщений: 12,567
30.09.2015, 20:28 #2
Лучший ответ Сообщение было отмечено автором темы, экспертом или модератором как ответ
Изначально: (С) Zverit
Программа рассчитана на то, что между словами один пробел.

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
var
  stroka:string;
  k,i:integer;
begin
  readln (stroka);
  for i:=1 to length(stroka) do
    begin
      if (stroka[i]=' ') Or (i=length(stroka)) then
        begin
          write(': ',k);
          writeln;
          k:=0;
        end
      else
        begin
          write(stroka[i]);
          inc(k);
        end;
    end;
  readln;
end.
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
30.09.2015, 20:28
Привет! Вот еще темы с ответами:

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

Дано предложение.Вывести количество повторений в нём каждого слова - Pascal
ПОМОГИТЕ С ЗАДАЧЕЙ!!! Дано предложение.Вывести количество повторений в нём каждого слова!!! ЗАРАНЕЕ СПАСИБО!!!

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

Вывести различные слова, указав для каждого из них число вхождений в последовательность - Pascal
Дана последовательность до 30 слов в каждом из которых от 1 до 5 символов, между словами - пробел или запятая, в конце - точка. Вывести...


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

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

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