KChernov Silver Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору Код: program s382; uses crt; var   s1:array[1..50] of string;   s:string;   i,k,n:byte; function VivodSlova(var st:string):string; begin   while (st[1]=' ') do delete(st,1,1);   if (st<>'') then VivodSlova:=Copy(st,1,Pos(' ',st)-1);   Delete(st,1,Pos(' ',st)); end; begin clrscr;   write('Введите строку: ');   readln(s);   s:=s+' ';   k:=0;   while s<>'' do     begin       inc(k);       s1[k]:=VivodSlova(s);     end;   write('Введите номер слова для вывода: ');   readln(n);   if n>k then     writeln('')   else     writeln(s1[n]);     readln; end. Всего записей: 2471 | Зарегистр. 20-04-2004 | Отправлено: 21:12 16-12-2011 | Исправлено: KChernov, 21:13 16-12-2011

На первую страницу • к этому сообщению • к последнему сообщению

Компьютерный форум Ru.Board » Компьютеры » Прикладное программирование » Задачи на Pascal/Object Pascal/Free Pascal (Delphi/Lazarus)

Переход по форумам  Закладки   » Компьютеры Цифровое изображение Программы Microsoft Windows UNIX Другие OS Hardware В помощь сисадмину Прикладное программирование Игры Форумные игры   » Интернет Web-программирование В помощь вебмастеру Графика Хостинг Зацените-ка!   » Тематические Ikonboard v.2 Ikonboard v.3 Invision Board Другие форумы PHP-Nuke и другие порталы Мобила   » Общие Спорт Флейм Темы по региональным встречам Музыка и Кино Юмор Литература и Живопись   » Ru.Board Новости Помощь по форуму   » Андеграунд eBookz Варезник Раздачи и акции Мобильный варезник Андеграунд Игры и фильмы   » Специальные Тестирование