10 12 14 16 18 20
Получается шесть
Размер изображения = 256*128*4 бит это за 8 сек
<span>за одну сек это будет 256*128*4 / 8 = 16384 бит в секунду = 0,015625 Мегабит в секунду, как сейчас модно мерять в мегабитах</span>
3 * 1024 = 3072 байт / 1536 = 2
40 мс * 2 = 80 мс
Var a,b,c,min:integer;
begin
write('Введите a: ');
readln(a);
min:=a;
write('Введите b: ');
readln(b);
if b<min then min:=b;
write('Введите c: ');
readln(c);
if c<min then min:=c;
writeln('Наименьшее: ',min);
<span>end.
Для VBA
Sub Z()
Dim a As Integer
Dim b As Integer
Dim c As Integer
Dim min As Integer
</span>a = InputBox("Введите A: ")<span>
min = a
b = InputBox("</span>Введите <span>B: ")
If b < min Then min = b
c = InputBox("</span>Введите <span>C: ")
If c < min Then min = c
MsgBox ("Наименьшее: " & min)
End Sub
Для наибольшего
</span>Sub Z()
Dim a As Integer
Dim b As Integer
Dim c As Integer
Dim max As Integer
a = InputBox("Введите A: ")
max= a
b = InputBox("Введите B: ")
If b > max Then max = b
c = InputBox("Введите C: ")
If c > max Then max = c
MsgBox ("Наибольшее: " & max )
End Sub
Чтобы команда сработала, нужно её напечатать при помощи клавиатуры и нажать ENTER. В основном регистр не учитывается, то есть команды можно вводить как маленькими так и большими буквами. Имена файлов в DOS могут быть только в формате 8.3, то есть не более 8 символов в названии файла и не более 3 в расширении (исключая недопустимые символы — пробел . " / \ [ ] : ; = ,). Пробел используется в качестве разделителя между командой и её параметрами.
Далее
Комманда....Описание
dir....Просмотр каталога
md....Создание каталога
cd....Смена текущего каталога
rd....удаление каталога
deltree....Удаление каталога со всем его содержимым
move....переименовать каталог
path....поиск