Другие разделы

Правила

FAQ

Пользователи

Комментарии

Друзья сайта

Flash Loops

RaceBook

Информатика

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

Решение задачи:

  1. Var
  2.   str:string;
  3.   i,pos,dlina,temp:byte;
  4. begin
  5.   writeln('vvedite predlojenie');
  6.   readln(str);
  7.   i:=1;
  8.   pos:=1;
  9.   temp:=0;
  10.   dlina:=0;
  11.   while i<=length(str) do
  12.     begin
  13.       if str[i]<>' ' then inc(temp)
  14.       else
  15.         begin
  16.           if temp>dlina then
  17.             begin
  18.               dlina:=temp;
  19.               pos:=i-temp;
  20.             end;
  21.           temp:=0;
  22.         end;
  23.       inc(i);
  24.     end;
  25.   delete(str,pos,dlina+1);
  26.   writeln(str);
  27. readln;
  28. end.

© Филимошин В. Ю., 2009-2015

Вход

Логин:

Зарегистрировать

Пароль:

Забыли пароль?

запомнить

Пятнашки

1
4
2
5
13
12
9
3
7
6
11
8
14
10
15

Опрос

Как Вы узнали об этом сайте?

От админа (1035)

48.6%

От друзей (32)

1.50%

Поисковик выдал... (974)

45.7%

Увидел(а) на других сайтах (46)

2.16%

Другое (41)

1.92%

Случайное фото

Слотовый Pentium !!! радиатор

Счётчики

Яндекс.Метрика

Internet Map

Каталог@Mail.ru - каталог ресурсов интернет