Фільм пачаўся ў 18 г, а закончыўся ў 20 г. Колькі часу доўжыўся фільм?

решение
20-18 = 2ч

ответ:

var

  mn, st: set of char;

  s, s1: string;

  f: char;

  i, k, p: integer;

 

begin

  writeln('введите слово x');

  readln(s);

  for i : = 1 to length(s) do

    mn : = mn + [s[i]];

  writeln('введите слово y');

  readln(s1);

  for i : = 1 to length(s1) do  

    st : = st + [s1[i]];    

  if (st < = mn) and (length(s1) < = length(s)) then writeln('можно составить') else writeln('нелья');                                              

end.

объяснение:

ответ:

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

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

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