«Плоский мир» (англ. Discworld — буквально «Мир-диск») — серия книг Терри Пратчетта, написанных в жанре юмористического фэнтези.
Действие книг происходит на фантастической планете. Планета эта, как понятно из названия, плоская и имеет форму диска. В этом мире свои законы физики: свет здесь движется медленно, магия материальна, а в радуге восемь цветов. В этом мире возможно всё; то, что мы считаем мифами, там — правда. Плоский мир покоится на спинах четырёх слонов, которых держит гигантская черепаха Великий А’Туин, плывущая сквозь космическое пространство.
Плоский мир населен различными расами: тролли, гномы, эльфы, големы, вампиры, оборотни, зомби — все они не просто сосуществуют в этом мире, но и борются за свои права и равенство при приеме на работу.
Книги о Плоском мире можно условно разделить на несколько подциклов, каждый из которых имеет своих героев и место действия (при этом они могут пересекаться). Герои основных подциклов:
I. Ринсвинд — «Волшебник», выпускник Незримого Университета, абсолютно неспособный к магии по мнению преподавателей Незримого Университета и величайший волшебник Плоского мира по факту: он спасает мир. Владелец Сундука.
II. Ланкрские Ведьмы. Самые известные представительницы — матушка Ветровоск, сильнейшая ведьма Диска, и нянюшка Ягг, автор «Песни про ёжика». Их магия — особая, иная, чем у волшебников: чтобы зажечь огонь, ведьма долго и пристально смотрит на бревно, пока бревно не сгорит со стыда.
III. Смерть — антропоморфическая сущность мужского рода (скелет с косой на белом коне)
IV. Городская стража — охраняет порядок Анк-Морпорка, самого большого города Плоского Мира.
V. Тиффани Болит — героиня «детского» подцикла, юная ведьма из Мела.
VI. Мойст фон Липвиг — герой одного из городских подциклов, авантюрист, принятый на государственную службу Анк-Морпорка.
Книги серии «Плоский мир» завоевали громадную популярность благодаря тонкому юмору и глубокой, но ненавязчивой философии.
------------------------------------------------
(на основе статьи из энциклопедии)
Var
a,b:real;
Begin
Write('a = ');
ReadLn(a);
Write('b = ');
ReadLn(b);
if a=b then WriteLn(a,' = ',b)
else if a>b then WriteLn(a,' > ',b)
else WriteLn(a,' < ',b);
End.
Ответ:
Я разбили это задание на четыре номер и во втором вы дали не полное условия
const
n = 3;
var
s,i : integer;
begin
for i := 1 to n do
if odd(i) then
s := s + i * i * i
else
s := s + i * i;
writeln (s);<span>
end.</span>
1)
var s:string; i:integer;
begin
readln(s);
for i:=1 to length(s) do
if (i mod 2=1)and(s[i]='н') then writeln(i,' - н');
end.
Пример:
Дано предложение. Вывести "столбиком" все его буквы н, стоящие на нечетных местах
3 - н
53 - н
67 - н
2)
var s,s1,s2:string;
begin
s:='вертикаль';
s1:=s[4]+s[5]+s[3];
s2:=s[1]+s[2]+s[4]+s[6]+s[7];
writeln(s1,' ',s2);
end.
Результат:
тир ветка
3. Замечание. Предполагается, что слова в предложениях отделяются друг от друга одним пробелом.
3 а)
var s:string; i,k:integer;
begin
readln(s);
k:=0;
for i:=1 to length(s) do
begin
if (s[i]='а')and(k=0) then
begin s[i]:='о'; k:=1; end;
if s[i]=' ' then k:=0;
end;
writeln(s);
end.
Пример:
Напечатать все его слова, предварительно преобразовав каждое из них по правилу
Нопечатать все его слово, предворительно преоброзовав кождое из них по провилу
3 б)
var s,sl,s_new:string; i:integer;
begin
readln(s);
s:=s+' ';
s_new:=''; sl:='';
for i:=1 to length(s) do
if s[i]<>' ' then sl:=sl+s[i]
else begin
while pos(s[i-1],sl)>0 do delete(sl,pos(s[i-1],sl),1);
s_new:=s_new+sl+s[i-1]+' ';
sl:='';
end;
writeln(s_new);
end.
Пример:
нечетное предложение больше четного
нчтное прдложние больше четнго