10-11 информатика 35+18 б вводится 5 строк, в которых сначала записан порядковый номер строки с точкой, а затем – слово. вывести слова в алфавитном порядке. пример: введите 5 строк: 1. тепловоз 2. арбуз 3. бурундук 4. кефир 5. урядник список слов в алфавитном порядке: арбуз, бурундук, кефир, тепловоз, урядник

Const n = 5; var a: array[1..n] of string;     i,j: integer;     s: string; begin  for i: =1 to n do  begin    write(i,'. ');     readln(a[i]);   end;     for i: =1 to n-1 do  for j: =1 to n-i do  if a[j]> a[j+1] then      begin      s: =a[j]; a[j]: =a[j+1];       a[j+1]: =s;     end;   for i: =1 to n do   write(a[i],', '); end.

паскаль

откомпилирован в: pascal abc

 

program z1; uses crt; var    s: string;     c: char;     i: integer; begin        write('  vvedite strocy:   ');         readln(s);                 writeln();                 write(' vvedite sivol dl poiska:   ');         readln(c);                 writeln();         for i : = 1 to length(s) do         if s[i] = c then //        begin                  writeln(' simvol prinadlech stroce = ', s);                   break;         end;         if s[i] < > c then writeln(' simvola net v stroke = ', s); end.

var

n: integer;

begin

readln(n);

case n mod 12 of

4: writeln('год крысы');

5: writeln('год коровы');

6: writeln('год тигра');

7: writeln('год зайца');

8: writeln('год дракона');

9: writeln('год змеи');

10: writeln('год лошади');

11: writeln('год овцы');

0: writeln('год обезьяны');

1: writeln('год петуха');

2: writeln('год собаки');

3: writeln('год свиньи');

end;

end.