24.12.2015, 21:23 | #1 (permalink) |
Новичок
Регистрация: 24.12.2015
Сообщений: 1
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Задача на Pascal
|
24.12.2015, 21:23 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
Почитайте аналогичные обсуждения - это очень полезно Задача Pascal Задача. Pascal Pascal, задача Задача. Pascal Pascal, задача |
25.12.2015, 14:34 | #2 (permalink) | |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
Цитата:
Код:
Var W:Array[1..100] of String; Lw:Array[1..100] of Byte; S:String; i,j,N,L,Lmax:integer; Begin Writeln('Enter the string:'); Readln(S); L:=Length(S); Writeln; j:=1; i:=0; Repeat W[j]:=''; repeat Inc(i); until S[i]<>' '; if i<L then begin while (S[i]<>' ') and (i<=L) do begin W[j]:=W[j]+S[i]; Inc(i); end; end; if i<L then Inc(j); Until i>=L; N:=j; for i:=1 to N do Lw[i]:=Length(W[i]); Lmax:=0; for i:=1 to N do if Lw[i]>Lmax then Lmax:=Lw[i]; for i:=1 to N do if Lw[i]=Lmax then begin if (Lw[i] mod 2)=1 then Delete(W[i],(Lw[i] div 2),1) else Delete(W[i],((Lw[i] div 2)-1),2); end; for i:=1 to N do Write(W[i]+' '); Readln End. |
|
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
|
|