|
Главная | Правила | Регистрация | Дневники | Справка | Пользователи | Календарь | Поиск | Сообщения за день | Все разделы прочитаны |
|
Опции темы | Опции просмотра |
13.01.2015, 23:33 | #1 (permalink) |
Member
Регистрация: 12.01.2015
Сообщений: 71
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Вывести ответ в столбик
program nomer_808(b); var smax: array[0..127] of string; s, s1: string; i, j, max: integer; begin for i := 0 to 127 do smax[i] := ''; write('введите строку:'); readln(s); j := 0; max := 0; s1 := ''; for i := 1 to length(s) do begin s1 := s1 + s[i]; if upcase(s[i]) in ['A', 'E', 'I', 'O', 'U'] then j := j + 1; if (s[i] = ' ') or (i = length(s)) then begin if max < j then max := j; smax[j] := smax[j] + s1; j := 0; s1 := ''; end; end; if max = 0 then writeln('HeT TaKux') else begin {for :=0 to length(s) do} writeln('MAX=', max); writeln(smax[max]); end; end. |
13.01.2015, 23:33 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
В темах которые наши участники создавали ранее можно найти полезные советы Игра: вопрос-ответ ProXimity Talk - ответ на звонок без нажатий Lazy Car - автоматический ответ за звонок Китайский ответ Apple Левый ответ mail.ru |
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
Метки |
pascal abc, задача, тексты |
Опции темы | |
Опции просмотра | |
|
|