Макромир это планеты, земные тела, кристаллы
микромир это атомы, элементарные частицы, ядра , молекулы
<span>N=2014
DIM A(N) AS INTEGER
DIM I, J, K AS INTEGER
FOR I = 1 TO N
INPUT A(I)
NEXT I
k = 0
if A(1) > A(2) and (A(1) mod 5 <> 0) then k = k + A(1)
if A(N) > A(N-1) and (A(N) mod 5 <> 0) then k = k + A(N)
for i = 2 to N-1
if (A(i) > A(i+1)) and (A(i) > A(i-1)) and (A(i) mod 5 <> 0) then k = k + A(1)
next i
print k
Именно бейсика у меня нет, так что писалось на VBS а потом добавлялись символы как думаю было бы правильно</span>
Пусть
(x∉A) ≡ ¬А ; (x ∉ P) ≡ ¬P; (x ∈ Q) ≡ Q.
(просто заменяешь скобки на буквы, A и P знак ¬ потому что там " ∉ " )
¬А⇒¬PvQ
Теперь применим формулу ( A⇒B можно заменить на ¬АvB)
Аv¬PvQ
Теперь смотрим на отрезки
<span>P = [10, 25] и Q = [0, 12]
И у нас есть формула : </span>Аv¬PvQ
Смотрим.
¬P ( читается как НЕ P ) значит закрашиваем все что за пределами P = [10, 25] ( у меня зеленым.
Q закрашиваем все что в этом отрезке.
Нам нужен такой отрезок А что бы покрывал то пустое место.
Ответ: <span>А [12;40]</span>
Ответ:
Язык п.-Pascal ABC
var
n, m, k, i, j, t: integer;
a: array [1..100, 1..100] of integer;
b: array [1..100] of integer;
begin
readln(n, m, k);
for i := 1 to n do
for j := 1 to m do
a[i, j] := (i + j) mod k;
for t := 1 to k do
begin
for i := 1 to n do
for j := 1 to m do
if (not ((t - 1) <> a[i, j])) then
b[t] := b[t] + 1;
write(b[t]:3);
end;
end.
Объяснение:
можно было и побольше баллов дать, все таки это самое сложное из заданий Т-Т...
Ответ:
1. изменить кодовую страницу
2. ASCII каждый символ занимает 1 байт, поэтому можно закодировать максимум 256 различных символов. Для отображения всех алфавитов разработан Unicode
3. В китайском языке количество иероглифов превышает 256 (смотри вопрос №2)
Объяснение: