Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Scrilkor
0 / 0 / 0
Регистрация: 21.06.2015
Сообщений: 11
1

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

30.09.2015, 09:18. Просмотров 211. Ответов 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
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
30.09.2015, 09:18
Ответы с готовыми решениями:

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

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

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

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

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

1
ZX Spectrum-128
Модератор
Эксперт Pascal/Delphi
3882 / 2864 / 3639
Регистрация: 05.06.2014
Сообщений: 14,083
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

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

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

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


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

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

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