===== PascalABC.NET =====
begin
var Y := ReadInteger('Y =');
if Y in Range(10, 99) then
Println(Y + 18)
end.
Все виды информации, представленные в двоичном виде, т.е. в виде 0 1
Насколько мне известно 1 символ=1байту => 1кбайт=1024байта
Var
i, j, n, min: integer;
v: array[1..8]of integer;
p: array[1..8]of integer;
s: array[1..8]of integer;
begin
min := 999;
for i := 1 to 8 do read(v[i]);
for i := 1 to 8 do read(p[i]);
for i := 1 to 8 do read(s[i]);
for i := 1 to 8 do
if(p[i] = 0) and (s[i] = 1) and (v[i] < min) then min := v[i];
write(min);
end.
Пример:
Входные данные:
22 19 40 33 34 23 45 23
1 0 0 1 1 0 1 0
0 1 1 0 0 1 1 0
Выходные данные:
19