«Плоский мир» (англ. Discworld — буквально «Мир-диск») — серия книг Терри Пратчетта, написанных в жанре юмористического фэнтези.
Действие книг происходит на фантастической планете. Планета эта, как понятно из названия, плоская и имеет форму диска. В этом мире свои законы физики: свет здесь движется медленно, магия материальна, а в радуге восемь цветов. В этом мире возможно всё; то, что мы считаем мифами, там — правда. Плоский мир покоится на спинах четырёх слонов, которых держит гигантская черепаха Великий А’Туин, плывущая сквозь космическое пространство.
Плоский мир населен различными расами: тролли, гномы, эльфы, големы, вампиры, оборотни, зомби — все они не просто сосуществуют в этом мире, но и борются за свои права и равенство при приеме на работу.
Книги о Плоском мире можно условно разделить на несколько подциклов, каждый из которых имеет своих героев и место действия (при этом они могут пересекаться). Герои основных подциклов:
I. Ринсвинд — «Волшебник», выпускник Незримого Университета, абсолютно неспособный к магии по мнению преподавателей Незримого Университета и величайший волшебник Плоского мира по факту: он спасает мир. Владелец Сундука.
II. Ланкрские Ведьмы. Самые известные представительницы — матушка Ветровоск, сильнейшая ведьма Диска, и нянюшка Ягг, автор «Песни про ёжика». Их магия — особая, иная, чем у волшебников: чтобы зажечь огонь, ведьма долго и пристально смотрит на бревно, пока бревно не сгорит со стыда.
III. Смерть — антропоморфическая сущность мужского рода (скелет с косой на белом коне)
IV. Городская стража — охраняет порядок Анк-Морпорка, самого большого города Плоского Мира.
V. Тиффани Болит — героиня «детского» подцикла, юная ведьма из Мела.
VI. Мойст фон Липвиг — герой одного из городских подциклов, авантюрист, принятый на государственную службу Анк-Морпорка.
Книги серии «Плоский мир» завоевали громадную популярность благодаря тонкому юмору и глубокой, но ненавязчивой философии.
------------------------------------------------
(на основе статьи из энциклопедии)
Begin
kk:=0;
for i:=1 to 15 do begin
a[i]:=random(1)+20;
if(a[i]>10)then inc(kk);
end;
end;
Var
x,y,z:real;
Begin
Write('x = ');ReadLn(x);
Write('y = ');ReadLn(y);
Write('z = ');ReadLn(z);
WriteLn('u = ',Sin(abs((y-sqrt(abs(x)))*(x-(y)/(z*z+x*x/4)))));
WriteLn('v = ',Cos(z*z+x*x+4));
End.
Это слово "обеспечение" ежу понятно.