Компьютер
Точный, быстрый
Считает, помогает, развлекает
Делает только, что ему говорят
Помощник
Общение
Личное, повседневное
Сообщают, предупреждают, спрашивают
Общение нужно каждому человеку
Человек
Модель
Математическая, информационная
Разъясняет, показывает, заменяет
В голове всегда модели
Копия
1)var a:array [1..10] of integer;
i,c:integer;
begin
randomize;
write('Массив: ');
for i:=1 to 10 do
begin
a[i]:=random(200);
write(a[i],' ');
if (a[i]>9) and (a[i]<100) then c:=c+1;
end;
writeln;
write('Количество двузначных элементов: ',c);
end.
2)var a:array [1..10] of integer;
i,c,min:integer;
begin
randomize;
min:=200;
write('Массив: ');
for i:=1 to 10 do
begin
a[i]:=random(200);
write(a[i],' ');
if a[i]<= min then
begin
min:=a[i];
c:=i;
end;
end;
writeln;
write('Номер последнего минимального элемента: ',c);
end.
3)var a:array [1..10] of integer;
i,c,min:integer;
begin
randomize;
min:=200;
write('Массив: ');
for i:=1 to 10 do
begin
a[i]:=random(200);
write(a[i],' ');
if (a[i]mod 5=0) and (a[i]<min) then min:=a[i];
end;
writeln;
if min<200 then write('Минимальный элемент,кратный 5: ',min) else write('Нету такого элемента.');
end.
Адрес последнего машинного слова - 7E
Первый байт слова находится на адресе 7E
Второй байт слова находится на адресе 7F
В десятичной системе 7F это 127
Так как ещё учитывается нулевой адрес, то получается, что размер ОП компьютера равен 128
Ответ: 128 байт
По диагонали с 3 до 18:3,6,9,12,15,18.
2.в строчку идя от трех до 18:3,7,11,15,19,4,6,8,10,12,14,1,4,9,13,17,21,24, 20,16,12,8,4,35,30,25,20,15,10,33,30,27,24,21,18.
Var
a:array[1..3,1..3] of integer;
t:array[0..2] of boolean;
k:array[0..2] of integer;
i,j:integer;
res:boolean;
begin
for i := 1 to 3 do
for j := 1 to 3 do
read(a[i,j]);
for i := 0 to 2 do
begin
k[i] := 0;
t[i] := false;
end;
for i := 1 to 3 do
for j := 1 to 3 do
k[a[i,j]] := k[a[i,j]] + 1;
for i := 1 to 3 do
begin
if (a[i,1] = a[i,2]) and (a[i,2] = a[i,3]) then
t[a[i,1]] := true;
if (a[1,i] = a[2,i]) and (a[2,i] = a[3,i]) then
t[a[1,i]] := true;
end;
if (a[1,1] = a[2,2]) and (a[2,2] = a[3,3]) then
t[a[2,2]] := true;
if (a[3,1] = a[2,2]) and (a[2,2] = a[1,3]) then
t[a[2,2]] := true;
res := true;
if (k[1] - k[2] > 1) or (k[1] - k[2] < 0) then
res := false;
if t[1] and ( t[2] or (k[1] = k[2]) ) then
res := false;
if res then
writeln('YES')
else
writeln('NO')
end.
