1. <span>Мегамир-большой мир, мир огромных велечин
2. Макромир - большие велечины, но меньше мега
3. Микромир - маленькие велечины
4. Это какой-то объект, который состоит из элементов, между которыми есть взаимная связь.
5.
6. Структура системы - это связь между подсистемами и элементами системы
</span> 7.
1. <span>Целостность
</span> 2. <span>Сложность
</span> 3. <span>Организованность</span>
Var x1a,y1a,x2a,y2a,L1,L2,x1b,y1b,x2b,y2b,:real;
begin;
readln(x1a);
readln(y1a);
readln(x2a);
readln(y2a);
readln(x1b);
readln(y1b);
readln(x2b);
readln(y2b);
l1:=sqrt(sqr(x2a-x1a)+sqr(y2a-y1a));
l2:=sqrt(sqr(x2b-x1b)+sqr(y2b-y1b));
if I1>l2 then writeln('Первый');
if l1<l2 then writeln('Второй');
if l1=l2 then writeln('Равны');
end.
Если прописать в паскаль этот алгоритм через цикл while (цикл с <span>предусловием)</span>, то ответ будет B=25.
var a, b: integer;
begin
a := 2;
b := 0;
while a <> 7 do
begin
a := a + 1;
b := b + a;
end;
writeln(b);
end.
CONST<span> k=10; </span>{k - количество чисел в массиве}VAR<span> a:array[1..k] of integer;</span><span> i,summ,n:integer; </span>{i - счетчик цикла, summ - сумматор, n - количество элементов массива с четным значением}<span> sr:real; {sr - среднее арифметическое} </span>BEGIN summ:=0; n:=0; {Обнуляем счетчики}<span> for i:=1 to k do </span> begin a[i]:=random(50); {Заполняем массив случайными числами}<span> write (a[i],' '); </span>{Выводим массив}<span> if a[i] mod 2=0 then </span> begin<span> summ:=summ+a[i]; </span>{Находим сумму элементов массива с четными значениями} n:=n+1 end end;<span> sr:=summ/n; </span>{Находим среднее арифметическое} writeln; writeln (sr:0:2) {Выводим среднее арифметическое}END.