1это топология шина
2 топология звезда как
ты можешь подумать это действительно не бред мы вчера эту новую тему проходили я и усвоила
Ответ:
dfbkefbyebfwybwflweyfb = 3
Объяснение:
В чем подвох
1. Из-за ошибок программа не запустится.
- в блоке описания переменных отсутствует var
- clrscr не будет работать без подключенного модуля CRT. Да она и не особо нужна для решения этой задачи. Как и не нужен readln в предпоследней строке.
2. После устранения недостатков получим, что первый цикл:
Заполняет массив сл. значениями и выводит его на экран в одной строке.
for i:=1 to 10 do
begin
a[i]:=random(21)-10;
write(a[i]);
end;
3. Следующие строки кода делают реверс 1-ой половины массива:
//надо, чтобы a[1] стало a[5], a[5] стало a[1], a[2] cтало a[4], a[4] стало a[2],
//элемент a[3] не трогаем, так как он находится посередине и его не с кем менять
n:=0; //вспомогательная переменная, которая будет увеличиваться на 1 при //каждом выполнении тела цикла
for i:=1 to 2 do
begin
k:=a[i]; // в переменной k запоминаем значение a[i]
a[i]:=a[5-n]; // теперь a[i] = a[5-n]
a[5-n]:=k; // А элемент a[5-n] = бывшему значению a[i], которое сохранили в k
n:=n+1; //Для работы со следующей парой элементов увеличиваем n на 1
end;
4. За реверс второй половины отвечает этот код:
n:=0;
for i:=6 to 8 do
begin
k:=a[i];
a[i]:=a[10-n];
a[10-n]:=k;
n:=n+1;
end;
5. Ну и последний цикл выводит получившийся массив на экран:
for i:=1 to 10 do write(a[i]);
Объем видеопамяти<span> рассчитывается по формуле: </span>V=I*X*Y, где I<span> – глубина цвета отдельной точки, </span>X, Y –<span>размеры экрана по горизонтали и по вертикали (произведение х на у – разрешающая способность экрана).
</span>1.Всего точек на экране (разрешающая способность): 1280 * 800 = 1024000
<span>2. Необходимый объем видеопамяти V= 64 бит * 1024000 = 65536000 бит = 8192000 байт = </span>8000 Кбайт<span>.</span>
<u>PascalABC.NET 3.4.0, сборка 1672 от 10.06.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
var a:=ReadSeqReal('Введите длины сторон:',3).OrderBy(t->t).ToArray;
if Sqr(a[2])=Sqr(a[0])+Sqr(a[1]) then Writeln('Треугольник прямоугольный')
else Writeln('Треугольник не прямоугольный')
end.
