Перевірте себе
1. які легенди й перекази про життя гомера існували за доби антично
ті? яким постає легендарний поет у цих оповідях?
2. у чому полягає «гомерівське питання»? наведіть аргументи за
і «проти» існування гомера.
3. що стало міфологічним підгрунтям сюжету поеми «іліада»?
4. схарактеризуйте композицію «іліади».
5. у чому полягають особливості зображення героїв у поемі?
6. що таке гекзаметр? яку роль він відіграє у створенні епічного про
стору поеми гомера?
7. дайте визначення поняття «катарсис». поясніть його походження.
8. які ознаки героїчного епосу притаманні «іліаді»?
9. хто з українських митців перекладав «іліаду» та «одіссею»?
перед читання м. читаючи уривки з поеми «іліада», визначте​

uses   crt; const   N=10; var   a:array [1..N] of integer;   i,j,tmp:integer; begin   randomize;   clrscr;   for i:=1 to N do     a[i]:=-100+random(201);   Writeln('Macciv do coptupovki');   for i:=1 to N do     Write(a[i], ' ');   for i:=1 to N-1 do     for j:=i+1 to N do       if a[i]>a[j] then       begin         tmp:=a[j];         a[j]:=a[i];         a[i]:=tmp;       end;   Writeln;   Writeln('Macciv pocle coptupovki');   for i:=1 to N do     Write(a[i], ' ');   readkey end.Двухмерный массив 10 на 10 (array) с названием массива и номером ячейки, заполнен генератором случайных чисел в диапазоне 30.надеюсь смогла

/// PascalABC.Net 3.4.2, 2053(11.05.19)

var

   a, n: longint;

   text: textfile;

function myMod(num, power, divider: longint): longint;

var

   rest, i: longint;

begin

   rest:=1;

   divider := abs(divider);

   for i := 1 to power do

   begin

       rest := rest * num;

       rest := rest mod divider;

   end;

   

   myMod := rest;

end;

begin

   assign(text, 'input.txt');

   

   {rewrite(text);

   writeln(text, 109);

   close(text);}

   

   reset(text);

   read(text, a);

   writeln('a=', a);

   close(text);

   

   n := 1;

   repeat

       n := n + 1;

   until MyMod(n, n, a) = 0;

   

   assign(text, 'output.txt');

   rewrite(text);

   writeln(text, n);

   close(text);

   

   {reset(text);

   read(text, n);

   writeln('n=', n);

   close(text);}

end.