Этот древний театр является главной достопримечательностью города, который в период до нашей эры стал одним из центров целительства и паломничества. даже сам театр выстраивался как место для оздоровления: считалось что он благоприятно воздействует на состояние пациентов. за счет своего расположения и продуманной конструкции театр обладает одной интересной особенностью: 1) в чем заключается эта особенность (укажите в ответе данную характеристику одним словом в именительном падеже) 2) где расположен театр (укажите только название города) 3) как звали архитектора, который его спроектировал (дайте полное имя архитектора) вопрос 3 из 10 пьесы этого драматурга (а также актера) переведены на множество языков, хотя наибольшую популярность он получил лишь спустя два века после своей смерти. у него было трое детей, но ни один его потомок не дожил до наших дней. на гербе его рода изображено копье, которое “прячется” в его фамилии: 1) какой девиз размещен на гербе (укажите его без кавычек) 2) укажите полное название пьесы (без кавычек) этого автора, действие которой происходит в вымышленной стране, а главными героями являются потерявшие друг друга близнецы вопрос 4 из 10 в данном вопросе речь идет об одной из старейших пьес театра, ее автором стал уроженец города мерзебург. пьеса была написана по указу царя из династии романовых, который отличался чрезвычайно мягким, добродушным характером, за что получил соответствующее прозвище. в основу пьесы лег известный библейский сюжет, одним из героев которого был персидский царь “владеющий праведным царством”. укажите в ответе: 1) название пьесы (без кавычек) 2) длительность ее первой постановки (укажите только количество часов)
//Pascal ABC.NET 3.1 сборка 1256
Const
n=10;
Var
ar:array[1..n] of integer;
i,max,min:integer;
b:boolean;
begin
randomize;
b:=false;
max:=integer.MinValue;
min:=integer.MaxValue;
writeln('Array:');
for i:=1 to n do
begin
ar[i]:=random(-100,100);
if (ar[i]>max) and not(odd(ar[i])) and (ar[i]>0) then
begin
max:=ar[i];
b:=true;
end;
if (ar[i]<min) and not(odd(ar[i])) and (ar[i]>0) then
begin
min:=ar[i];
b:=true;
end;
write(ar[i]:4);
end;
writeln;
if b=false then writeln('Нет удовлетворяющих условиям чисел') else
begin
writeln('Max=',max);
writeln('Min=',min);
end;
end.
Пример работы программы:
Array:
98 60 -41 -88 63 -81 -77 -96 -18 51
Max=98
Min=60
begin
case ReadInteger('Номер месяца (1-12):') of
1,2,12:Writeln('Зима');
3..5:Writeln('Весна');
6..8:Writeln('Лето');
9..11:Writeln('Осень');
else Writeln('Неверный номер месяца')
end
end.
Вариант "для школьников"
// PascalABC.NET 3.1, сборка 1256 от 21.06.2016
var n:integer;
begin
Write('Номер месяца (1-12): '); Read(n);
case n of
1,2,12:Writeln('Зима');
3..5:Writeln('Весна');
6..8:Writeln('Лето');
9..11:Writeln('Осень');
else Writeln('Неверный номер месяца')
end
end.