Дана строка, состоящая из слов, набранных заглавными буквами и разделенных пробелами (одним или несколькими). вывести строку (в pascal), содержащую эти же слова, разделенные одним пробелом и расположенные в алфавитном порядке.

program slova; usescrt;

varwords : array[1..100] of string; wc : integer; all,currword,tmp : string; i,j : integer;

begin

    clrscr;

    wc : = 1;

    writeln('‚ўґ¤ёвґ б«®ў  : '); // 'введите слова'

    read(all);

    all : = all + chr(32)+ chr(32);

    for i : = 1 to length(all)-1 do      begin

        if ord(all[i]) = 32 then        begin

          if currword < > '' then            begin              words[wc] : = currword;               inc(wc);

              currword : = '';             end;

          continue;

        end else      begin

currword : = currword + all[i];

end;

end;

  for i : = 1 to wc-2 do  for j : = i + 1 to wc-1 do    if words[i] > words[j] then    begin    tmp : = words[i];     words[i] : = words[j];     words[j] : = tmp;     end;

  writeln('ђґ§г«мв  в: '); // 'результат'

  for i : = 1 to wc-1 do    write(words[i] + ' ');

  readln(tmp);   read(tmp);

end.

30 * 70 = 2100 символов на 1 странице

5 * 2100 = 10500 символов на 5 страницах

при кодировке ascii - 1 символ = 1 байт, значит 20500 байт оперативной памяти займет этот текст.

1) 

var

s: string;

begin

s: ='пробел';

writeln(s);

delete(s,4,1);

insert('д',s,4);

writeln(s);

end.

2)

var

i: integer;

a,b: string;

begin

readln(a);

b: ='';

for i: =1 to length(a) do

b: =b+a[i]+' ';

writeln(b);

end.

3)

var

a: string;

begin

readln(a);

if a[2]=a[4] then writeln('равны')

else  writeln('не равны');

end.