1) Маркированными списками являются. 2) Нумерованными списками являются.
3) Многоуровневым списком является.
4) Маркированные списки используют...
1. когда имеет значение порядок следования пунктов
2.когда не хватает цифр
3.когда порядок следования элементов в списке не важен
5) Правила оформления таблицы:
1. В таблице не должны быть указаны единицы измерения.
2. Заголовок таблицы должен давать представление о содержащейся в ней
информации.
3. Желательно, чтобы все ячейки таблицы были заполнены. При
необходимости в них заносят следующие условные обозначения:
? — данные неизвестны; zzz — данные невозможны;yyy — данные должны
быть взяты из вышележащей ячейки.
4. В таблице должны быть указаны единицы измерения.
6) Определи размеры данной таблицы.
3.png
Размеры: __x__
7) Выбери верное название Обтекания.
7.png
Вокруг ячейки; в тексте; основное положение; после текста.
8) Автофигурой является
miska.png
1.png
1.png
1.png
9) Графической схемой является:
1.png
1.png
н1.png
10) Дан текст с рисунком. Определи, какое обтекание применено.
6.png
над текстом
по контуру
текстовой рисунок
все ответы верные
1)
Program dasf;
var b,c,i: integer;
A: Array[1..100] of real;
D: Array[1..100] of real;
begin
Writeln('Введите размерность массива D');
readln(b);
For i:=1 to b do
begin
Writeln('Введите элемент массива №',i);
readln(D[i]);
end;
Writeln('Массив А:');
For i:=1 to b do
begin
If i mod 2=1 then A[i]:=5+(D[i]*D[i])
else A[i]:=D[i]/i;
Writeln(A[i]);
end;
end.
2)
Program fgsadg;
var i,b,x,y,z,k,t: integer;
begin
Writeln('Введите сколько чисел будет использоваться:');
readln(b);
Writeln('Введите х:');
readln(x);
Writeln('Введите число №',1);
readln(z);
k:=0;
For i:=2 to b do
begin
Writeln('Введите число №',i);
readln(y);
If z+y=x then k:=k+1;
z:=y;
end;
Writeln(k);
end.
Если что-то не будет работать - отпиши, мог кое-что удалить случайно при переносе.
Program sadadasf;
var i,k,l: integer;
begin
Writeln('Введите первое целое двухзначное число:');
readln(i);
Writeln('Введите второе целое двухзначное число:');
readln(k);
If k>i then begin
k:=k*k;
i:=i*2;
end;
If i>k then begin
i:=i*i;
k:=k*2;
end;
Writeln('Первое число:', i);
Writeln('Второе число:', k);
end.
Это решение при задании чисел в самой программе:
Program sadadasf;
var i,k,l: integer;
begin
i:=5;
k:=3;
If k>i then begin
k:=k*k;
i:=i*2;
end;
If i>k then begin
i:=i*i;
k:=k*2;
end;
Writeln('Первое число:', i);
Writeln('Второе число:', k);
end.