Задание 1:
A.<span>Общеутвердительные
</span><span>Задание 2:
Братан,я вообще без понятия че тут ответить
Задание 3:
4.Принятие действий
Задание 4:
</span>понятие<span>, </span>суждение<span> и </span>умозаключение<span>.
</span><span>Задание 5:
я не знаю
Задание 6
</span><span>Геометрические фигуры
Задание 7
1.
3.
5.
6.
7.
8.
Задание 8
Начало и конец
задание 8(у тя повторное оно)
1.
4.
Задание 9
3.
</span><span>5.
7.
Задание 10
Я не знаю </span>
Const n=6; m=4;
var
a:array[1..n,1..m] of integer;
i,j,c:integer;
begin
Randomize;
writeln('Исходный массив:');
for i:=1 to n do
begin
for j:=1 to m do
begin
a[i,j]:=random(50);
write(a[i,j]:4);
end;
writeln;
end;
for j:=1 to m do
begin
c:=a[3,j]; a[3,j]:=a[5,j]; a[5,j]:=c;
end;
writeln('Полученный массив:');
for i:=1 to n do
begin
for j:=1 to m do write(a[i,j]:4);
writeln;
end;
end.
Пример:
Исходный массив:
25 4 33 17
19 23 42 9
36 40 1 48
21 44 13 18
38 29 8 7
24 13 5 13
Полученный массив:
25 4 33 17
19 23 42 9
38 29 8 7
21 44 13 18
36 40 1 48
24 13 5 13
Var a: integer;
begin
readln(a);
if (a>5) then a:=a*2;
writeln(a);
readln();
end.
Начиная от единицы, y будет удваиваться, пока у меньше 100. Т.е. у будет идти по степеням двойки, начиная с нулевой. Ближайшая меньшая к ста степень двойки - шестая, она дает значение 64 и для нее цикл выполнится последний раз, давая следующую, седьмую степень двойки, равную 128.
Ответ: 128