Вавило́нская ба́шня — легендарная башня, которой посвящено библейское предание, изложенное в 11 главе книги Бытие. Согласно этому преданию, после Всемирного потопа человечество было представлено одним народом, говорившим на одном языке. С востока люди пришли на землю Сеннаар (в нижнем течении Тигра и Евфрата), где решили построить город, названный Вавилоном, и башню до небес, чтобы «сделать себе имя». Строительство башни было прервано Богом, который создал новые языки для разных людей, из-за чего они перестали понимать друг друга, не могли продолжать строительство города и башни и рассеялись по всей земле. Таким образом, история о Вавилонской башне объясняет появление различных языков после Всемирного потопа.
<h3>PascalABC.NET 3.4.2, сборка 1881 от 19.11.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
var A:='Аэродинамика';
A[5:].Println;
A[5:12].Println;
(A[9]+A[12]+A[3]+A[6:9]+A[5]).Println
end.
<h2>Пример</h2><h3>динамика</h3><h3>динамик</h3><h3>маринад</h3>
Ответ на первую
var
i,m,b:integer;
a:array[1..15] of integer;
begin
for i:=1 to 15 do
a[i]:=random(100)+1;
repeat
for i:=1 to 14 do
if a[i]<a[i+1] then begin
b:=a[i];
a[i]:=a[i+1];
a[i+1]:=b;
end;
inc(m);
until m=14;
for i:=1 to 15 do
if a[i] mod 2 = 0 then
write(a[i],' ');
end.
Uses Crt;
var E, F, X, Y, Z: real;
bol: boolean;
begin
ClrScr;
Write(' E = '); ReadLn(E);
Write(' F = '); ReadLn(F);
Write(' X = '); ReadLn(X);
Write(' Y = '); ReadLn(Y);
Write(' Z = '); ReadLn(Z);
bol:=(X>=E) and (X<=F) and (Y>=E) and (Y<=F) and (Z>=E) and (Z<=F);
if bol=true then Writeln (' Принадлежат !!!')
else WriteLn (' Нет...');
ReadLn;
end.
<span>С:\
</span>С:\мои документы
С:\<span>фильмы
</span>С:\фильмы\<span>интересный фильм.avi
</span>С:\мои документы\иванов
С:\мои документы\<span>петров
</span>С:\мои документы\иванов\<span>QBasic.exe
</span>С:\мои документы\иванов\<span>рисунки
</span>С:\мои документы\иванов\рисунки\<span>море.bmp
</span>На будущее, перефоткай страницу с этим заданием. Так ничего не понятно.
Тебя спасло, что она у меня на диске завалялась. Без той картинки это невозможно.