У грецькому суспільстві відбувається в цей період завзята боротьба нового зі старим, йде інтенсивне руйнування звичаїв родового ладу і не менш інтенсивний процес утворення класів і держави. Величезне значення для подальшого розвитку грецького суспільства мало те,що відбулося протягом гомерівського періоду,а саме докорінне оновлення його технічної бази, що знайшло своє вираження перш за все в широкому поширенні заліза і його впровадженні у виробництво. Всі ці важливі зрушення підготували перехід грецьких полісів на абсолютно новий шлях історичного розвитку, вступивши на який вони змогли протягом трьох або чотирьох найближчих століть досягти небачених в історії людства висот культурного і соціального прогресу.
День рождение на пороге)
Объяснение:
Пф, собираешь побольше друзей и идёте в караоке, вот это будет точно круто)) Еще можно сходить в кино на какую-нибудь комедию, ну это такой себе вариант конечно. Если есть возможность, то конечно круто было бы посетить дельфинарий! Я там была когда-то и не жалею. К стати говорила на счет кино, можно сходить на кино в ХD, или как это называется... Короче кино лучше 3Д в разы. Ну поскольку на улице осень, в лес не сходишь, но если есть возможность, можно накупить мяса и колбасы и пойти на природу (Подальше от цивилизации, чтоб не попасть на ментов) ахах, я вот возле дома могу жарить шашлык, село, почему бы и нет))) Еще можно выбрать игру типа правда или действия (причём действия можно придумать заранее и написать на бумаге чтоб кто-то вытаскивал по очередно)) Можно сходить на чей нить концерт, но это на крайний случай) Ну... В общем говоря, я романтичная натура и мой скупой запас идей исчерпан, ибо вам, мужчинам тоже трудно угодить и я в принципе не знаю кто по ту сторону экрана читает этот ответ. В любом случае я поздравляю тебя с наступающим) Ибо не знаю когда у тебя день рождение) Желаю тебе праздничного настроения, крепкого здоровья! Исполнения желаний, счастья, благополучия и конечно же хорошо провести день рождения!) Всего хорошего тайный незнакомец
var Name: array [1..30] of string;
h: array [1..30] of word;
Cand: array [1..30] of string;
i, k: integer;
begin
writeln (‘Введите фамилии и рост учеников‘);
for i:=1 to 30 do
begin
write (i,’. ‘);readln (Name[i]);
write (‘Рост: ‘); readln (h[i]);
end;
k:=0;
for i:=1 to 30 do
if h[i]>170 then
begin
k:=k+1;
Cand[k]:=Name[i];
end;
if k=0 then writeln (‘Кандидатов нет‘)
else
begin
writeln (‘Кандидаты в команду:‘);
for k:=1 to k do writeln (Cand[k])
end
end.