const n = 10;
var
mas: array [1..n] of integer;
i,j,h:integer;
begin
randomize;
for i := 1 to n do
begin
mas[i] := random(3);
write(' ',mas[i],' ');
end;
writeln();
for i := 1 to n - 1 do
for j := 1 to n - i do
if(mas[j] = 0) then
begin
h := mas[j];
mas[j] := mas[j + 1];
mas[j + 1] := h;
end;
for i := 1 to n do
write(' ',mas[i],' ');
end.
<span> Истоки моделирования обнаруживаются в далеком прошлом человечества, наскальные рисунки охоты на животных можно рассматривать как модель удачной охоты.</span>
<span>Архитектор готовится построить здание, но прежде чем воздвигнуть его, он сооружает макет этого </span><em>здания,</em><span> чтобы посмотреть, как оно будет выглядеть. Это модель. Для того чтобы объяснить внутреннее строение человека или животного учитель демонстрирует модель или плакат, на котором наглядно можно продемонстрировать строение внутренних органов. Это модель.</span>
<span>Перестановка мебели. </span>
<span>На стене висят картины, изображающие пейзаж природы. Это модель.</span>
<span>Глобус – это модель земного шара. Манекен в магазине – модель человека.</span>
<span>В роли модели могут выступать самые разнообразные объекты, в том числе условные и мысленные (изображения, описания, схемы, карты, математические формулы, компьютерные программы и т.д.)</span>
<span>Перечислять примеры моделей можно сколь угодно долго.</span>
<span>А для чего же создают модели? (Солнечная система. Модель атома. Модель двигателя внутреннего сгорания.</span>
<span> Геологическая модель. Модель атомного взрыва. Модель самолета.) </span>
/ - разделить
* - умножить
i = 8 бит = 1 байт
Объем одной страницы T = 40*60*1 байт = 2400 байт
Объем доступной памяти M = 16 Кбайт = 16 * 1024 байт = 16384 байт
Кол-во страниц S = M / T = 16384 байт / 2400 байт = 6.8266666666666
Поскольку страниц может быть только целое число и больше чем есть не впихнешь, то округляем до целых в меньшую сторону
S = 6
Сетунь оперировала троичной симметричной системой (знаки "-", "0", "+"), а не обычной ("0", "1", "2"). Но задание хорошее.
По порядку от a) до o):
0, 1, 10, 11, 100, 101, 110, 111, 1000, 1001, 1010, 1011, 1100, 1101, 1110.
Числа вообще по порядку там идут от 0 до 15.
var
r, x, y :integer;
begin
randomize;
writeln('Введите координаты');
read(x);
read(y);
r := random(10)+1;
writeln('Радиус равен ', r);
if (x*x+y*y <= r*r) then
writeln('Точка принадлежит окружности')
else
writeln('Точка не принадлежит окружности');
end.