{#1 Деление на числа меньше 7}
begin
var F: boolean;
var a: integer; read(a);
for var x := 7 downto 1 do
begin
F := (a mod x = 0) ? true : false;
if F <> true then break;
end;
end.
{#2 Находится ли точка внутри окружности}
begin
var F: boolean;
var z: cardinal;
var x,y: double; read(x,y,z);
x := (x<1)? x*-1:x;
y := (y<1)? y*-1:y;
if (x<z) and (y<z) then
F := true;
end.
{#3 В трехзначном числе есть три одинаковые цифры}
begin
var F: boolean;
var n: integer; read(n);
var s := n.ToString;
if (s[1] = s[2])
or (s[2] = s[3])
or (s[1] = s[3]) then
F := true;
end.
{#4 Точки лежат на одной прямой}
begin
var F: boolean;
var x1,y1,x2,y2,x3,y3: integer;
read (x1,y1,x2,y2,x3,y3);
if (x2 - x1)*(y3 - y1) - (x3 - x1)*(y2 - y1) = 0 then
F := true;
end.
{#5 Х или трёхзначное чётное число или четырёхзначное нечётное}
begin
var F: boolean;
var x:integer; read(x);
var s:=x.ToString;
if ((length(s) = 3) and (x mod 2 = 0)) or ((length(s) = 4) and (x mod 2 <> 0)) then
F := true;
end.
16 бит
Объяснение:
Сначала посчитаем сколько места занимают фотографии
1366 *768*16 - это 1 фотография , а их 50
Итого 50*1366*768*16 = 839270400 бит(так как множили пиксели на биты) в 1 байте - 8 бит.
839270400/8 = 104908800 байт
Посчитаем сколько это КиБ
104908800/1024 = 102450 КиБ - эта тот объем памяти, которое занимают фото.
Так что из 102584 КиБ - 102450 КиБ это фото. Остальное это текст и служебная информация
102584-102450 = 134 КиБ, из них 128 КиБ это служебная информация
134-128 = 6 Киб - это Текст
6 КиБ , это 6*1024 = 6144 байта; это 6144 *8 = 49152 бита
49152 бита занимает 3072 символа, соответственно 49152/3072 = 16 бит.
Именно столько и занимает 1 символ в презентации.
var
a:array[1..n,1..m] of integer;
i,j,k:integer;
begin
Randomize;
writeln('Исходный массив:');
for i:=1 to n do
begin
for j:=1 to m do
begin
a[i,j]:=random(90)+10;
if a[i,j] mod 2 = 0 then a[i,j]:=a[i,j]+1;
write(a[i,j]:4);
end;
writeln;
end;
k:=0;
for i:=1 to n do
for j:=1 to m do
if (a[i,j] div 10 + a[i,j] mod 10) = 7 then k:=k+1;
writeln('k = ',k);
end.
Пример:
Исходный массив:
79 47 11 63 31
85 73 97 79 35
99 49 43 55 61
93 75 41 33 45
k = 2