var a, b, c: integer;
begin
readln(a, b, c);
if (a=-b)or(a=-c)or(b=-a)or(b=-c)or(c=-a)or(c=-b) then writeln('TRUE') else writeln('FALSE');
end.
Ответ:
15 или 16 в зависимости от используемой системы единиц. См. решение
Объяснение:
Текстовый документ занимает память :
N*2048*2 байт ⇒ N*4096
Растровый документ занимает:
N*1536*1024*3 байт (24-битная = 3 байтная, т.к. 1 байт=8 бит) ⇒
N*4718592.
Получаем неравенство:
N*4718592 - N*4096 > 70000000 (если за 1 Мбайт принять 1000000 байт)
N*(4718592-4096) > 70000000
N > 14 (ответ 15)
N*(4718592-4096) > 73400320 (если за 1 Мбайт принять 1 048 576 байт)
N > 15 (ответ 16).
<em>// PascalABC.NET 3.3, сборка 1600 от 23.12.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
function kolichestvo(c:array [,] of integer):integer;
begin
Result:=0;
var n:=c.RowCount;
for var i:=1 to n-1 do
for var j:=n-i to n-1 do
if c[i,j].IsEven then Result+=1
end;
function massiv:array[,] of integer;
begin
var n:=ReadInteger('Число строк/столбцов: ');
Result:=MatrRandom(n,n,-99,99)
end;
begin
var s:=massiv; s.Println(4); Writeln(4*s.ColCount*'-');
var n:=massiv; n.Println(4); Writeln(4*n.ColCount*'-');
var m:=Sqr(kolichestvo(s)+kolichestvo(n));
Writeln('M=',m)
end.
<u>Пример</u>
Число строк/столбцов: 3
-77 -81 82
-30 -37 39
31 92 12
------------
Число строк/столбцов: 6
66 9 -64 -53 13 -61
16 -72 -25 38 -19 21
40 29 38 77 -38 11
31 76 -83 -17 -58 1
-2 39 -63 84 -35 -42
-23 -75 -57 92 -14 -73
------------------------
M=64
В последовательности длиной 5 возможны следующие способы расположения буквы О (* - любая из букв К или Т):
ОО***
О*О***
О**О*
О***О
*ОО**
*О*О*
*О**О
**ОО*
**О*О
***ОО
Всего 10 способов. В каждом из низ существует 2^3 = 8 вариантов записи букв К и Т на трёх оставшихся позициях (ККК, ККТ, КТК, КТТ, ТКК, ТКТ, ТТК, ТТТ).
Таким образом, общее количество последовательностей = 10*8 = 80
Двойное отрицание же. Просто D.