Строка: Зашифровать текст, выписав слова каждого предложения в два новых

@Татьнка91 · Регистрация: 15.03.2012

Author24 — интернет-сервис помощи студентам

Дан текст, представляющий собой массив предложений. Зашифровать текст, выписав слова каждого предложения в два новых.Каждое слово, стоящее на нечетных местах записать в одно, на нечетных в другое.

@CodeR · 10.04.2013, 14:04

Если правильно понял то...

Pascal

Var A:array[1..50] of string;
    s1,s2,t,st:string;
    i,n,k:byte;
Begin
    write('Введите кол-во предложений n<=25: ');readln(n);
    For i:=1 to n do
    Begin
      write(i,'-ое предложение: ');
      readln(A[i]);
    End;
    For i:=1 to n do
    Begin
      t:=A[i]+' ';s1:='';s2:='';k:=0;
      While Pos(' ',t)>0 do
      Begin
        st:=Copy(t,1,Pos(' ',t)-1);
        Delete(t,1,Pos(' ',t));
        inc(k);
        if odd(k) then s1:=s1+st+' '
         else s2:=s2+st+' ';
      End;
      writeln(i,'предложение: ');
      writeln(s1);
      writeln(s2);
    End;
    readln;
End.

@Татьнка91 0 / 0 / 0 Регистрация: 15.03.2012 Сообщений: 46
		1
	Строка: Зашифровать текст, выписав слова каждого предложения в два новых 10.04.2013, 13:11. Показов 1363. Ответов 1 Метки нет (Все метки) Дан текст, представляющий собой массив предложений. Зашифровать текст, выписав слова каждого предложения в два новых.Каждое слово, стоящее на нечетных местах записать в одно, на нечетных в другое. 0

	10.04.2013, 14:04

Строка: Зашифровать текст, выписав слова каждого предложения в два новых

Решение