Ответ:
var
a: array [1..3] of Integer;
i, imin: Integer;
begin
for i := Low (a) to High (a) do begin
Write (i, ' число: ');
ReadLn (a [i]);
end;
imin := 0;
for i := Low (a) to High (a) do begin
if a [i] mod 2 = 0 then
if imin = 0 then
imin := i
else if a [i] < a [imin] then
imin := i;
end;
if imin <> 0 then
WriteLn ('Наименьшее четное = ', a [imin])
else
WriteLn ('Четных чисел нет.');
ReadLn;
end.
Объект картина признаки красота автор
треугольник. признаки коо-во углов , сторо и т.д
Div берет целую часть от деления
15/4 = <span>3.75
Целая часть числа 3.75 = 3
</span>X = 3
begin
writeln(15 div 4);
end.
N = 24
N=2^i
i= 5
I= 12*5= 60 бит (лебедя)
I=8*5= 40 (журавля)