вероятно, наиболее специфической особенностью египетской культуры был своеобразный культ смерти. вся египетская культура пронизана протестом против смерти и одновременно приготовлением к ней (проникнутым верой в обретение бессмертия). ни в какой другой культуре мотив смерти не нашел столь отчетливого выражения, как в египетской. буквально во всех древних мифологиях и религиях присутствует вера в бессмертие, искупление, воскресение и т. д., но ни одна культура не пронизана в такой степени подготовкой к смерти. мумифицирование позволяло сохранить тело, в которое мгла вернуться душа, а мощные стены пирамид должны были обеспечить им покой; погребенные в пирамидах рабы, утварь были одинаково необходимы в жизни как до смерти, так и после нее. сами пирамиды возводились не в насыщенной влагой долине нила, а на краю соседних с нею пустынь.
сохранился и по сей день, привлекая туристов со всего мира, город мертвых, расположенный западнее древней столицы, мемфиса (мен нофера). древние египтяне называли его просто западным городом, а находившихся здесь называли не мертвыми, а утомившимися. город мертвых в итоге занял территорию, превышающую любой город живых, простираясь до 60 км. само название мемфис — мен-нофер происходит от имени первого фараона, мена. согласно преданию, собственные псы загнали однажды мену в озеро мерида, где бы он и погиб, если бы его не взял в пасть крокодил. в этом месте мена основал город и велел почитать крокодилов. считается, что именно мена заложил единую столицу верхнего и нижнего египта. вначале ее называли белыми стенами, позже она получила более возвышенные названия: весы двух стран, жизнь двух стран, непреходящая красота (мен нофер), дворец души птаха — хет-ка-птах. мен нофер стало звучать у греков как мемфис, а название хет-ка-птах трансформировалось в айгуптос (египет).
m, n, nok, t, i: longint;
begin
Write('Введите через пробел два целых положительных числа- ');
Readln(m, n);
{Сначала ищем НОК - наименьшее общее кратное}
if m = n then begin
nok := m;
t := m * m
end
else begin
t := m * n;
repeat
if m > n then m := m - n else n := n - m
until m = n;
nok := t div m
end;
{Теперь умножаем НОК на числа натурального ряда,
пока не дойдем до величины t=m*n}
if nok = t then Writeln('Требуемых чисел нет')
else begin
i := 1;
while (nok * i < t) do
begin
Write(nok * i, ' ');
i := i + 1
end
end
end.
Тестовое решение:
Введите через пробел два целых положительных числа- 8 120
120 240 360 480 600 720 840
Введите через пробел два целых положительных числа- 35 620
4340 8680 13020 17360
Введите через пробел два целых положительных числа- 7 13
Требуемых чисел нет
