Ячейка - минимальный объект табличного процессора
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
//PascalABC.NET 3.1 сборка 1239
uses GraphABC;
const
n = 4;
begin
Window.CenterOnScreen;
var h := 100;
Window.SetSize(h * n, h * n);
Pen.Width := 3;
for var i := 1 to n - 1 do
begin
Pen.Color := clRandom;
Polyline((h * i, h * 0), (h * n, h * (n - i)), (h * (n - i), h * n), (h * 0, h * i), (h * i, h * 0));
end;
end.
Восприятие информации человеком — это ознакомление с явлениями и предметами посредством их воздействия на различные органы чувств. Анализируя результат воздействия того или иного предмета или ситуации на органы зрения, слуха, обоняния, вкуса и осязания, индивид получает определенное представление о них. Таким образом, основа в процессе восприятия информации — пять наших органов чувств. При этом активно задействованы прошлый опыт человека и ранее полученные знания. Обращаясь к ним, можно отнести полученную информацию к уже известным явлениям или выделить из общей массы в отдельную категорию. Способы восприятия информации базируются на некоторых процессах, связанных с психикой человека: - Читайте подробнее на
мышление (увидев или услышав предмет или явление, человек, начиная мыслить, осознает, с чем он столкнулся); речь (возможность назвать объект восприятия); чувства (различные виды реакций на предметы восприятия); воля (способность человека организовывать процесс восприятия).
Var a,b,h:integer;
begin
read(a;h);
write(a^a+2*a*sqrt(a^a/4+h*h));
wrteln((h*a*a)/3);
end.