Дана строка, состоящая из слов, набранных заглавными буквами и разделенных пробелами (одним или несколькими вывести строку (в pascal), содержащую эти же слова, разделенные одним пробелом и расположенные в алфавитном порядке.
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.
thebest59
17.11.2020
Епрст, если это все условия тогда для решения я добавлю свои ибо этого недостаточно. начнем с того что определим сколько нам понадобится бит для того чтобы каждый учасник марафона был индивидуально закреплен 5бит будет мало ибо два в пятой это 32, значит нам нужно 6 бит, но, какого черта нам дано условие про 29 финишировавших, вот ли нам не по барабану сколько пришло, пришел 1 человек я трачу 6 бит, пришло 2 я трачу 6 бит, пришли хоть все я трачу 6 бит, не понимаю, неужели у нас требуется перемножить 6 на если да то система образования меня пугает, а если нет то значит какая то глупая уловка с излишней информацией, вобщем лично я считаю что для этого нужно 6 бит и ни битом больше
goldglobustour725
17.11.2020
Подробно? надеюсь это не я конечно понимаю что опыта даже в чтении документации по линуксу не было но все таки, есть лишь одно сходство обе они операционные системы, тоесть они обе обеспечивают взаимодействие юзера и железа и это все, все остальное же это различия, ибо начиная с того какие файлы и их расширения нужны как для работы системы так и для запуска приложений(и это я молчу про пакеты программ каждой ос) а заканчивая тем что у линукса(если ниче не поменяли) открытый програмный код а у винды закрытый, о том что ядра у систем разные и принципы взаоимодействия я промолчу, почитай информацию о файловых системах, думаю ее одной будет достаточно чтобы на весь урок загрузить препода задавшего такой глупый вопрос
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.