Наша жизнь полна разных трудностей(знаю звучит абсурдно но не обессуть). Есть разные предметы по которым (в основном технологические) иногда требуется составление таблицы. Конечно для каждого кажется легче свой кому-то легче учить сплошным текстом, кому то легче таблицами или схемами. Но, по моему намного легче учить таблицами. Кроме того таблицы нужны не только для учёбы ,но и для работы например: тебе нужно написать отчёт по работе, и конечно будет намного легче для понятия если ты напишешь это в виде таблицы или схемы чем свободным текстом. Ещё например в жизни могут понадобятся таблицы для того чтобы составить решить задачу-вот для чего нужны таблицы.
Var s,s1,s2,st1,st2:string; i:integer; mn:set of char; b:boolean; begin writeln('Введите текст:'); readln(s); s:=s+' '; st1:=''; st2:=''; s1:=''; s2:=''; mn:=[]; b:=false; while pos(' ',s)>0 do delete(s,pos(' ',s),1); for i:=1 to length(s) do if s[i]<>' ' then begin s1:=s[i]+s1; s2:=s2+s[i]; if s[i] in mn then b:=true; mn:=mn+[s[i]]; end else begin if s1=s2 then st1:=st1+s1+' '; if not b then st2:=st2+s2+' '; s1:=''; s2:=''; mn:=[]; b:=false; end; if st1<>'' then writeln('Слова-перевёртыши: ',st1) else writeln('Слов-перевёртышей нет'); if st2<>'' then writeln('Слова без повторяющихся букв: ',st2) else writeln('Слов без повторяющихся букв нет'); end.
Пример: Введите текст: заказ слово комок пробел след пример огонь текст Слова-перевёртыши: заказ комок Слова без повторяющихся букв: пробел след
var a: integer;
begin
if (a=13) then
алгоритм
else
write("not 13");
end.