Var k,m: Integer;
Dat: array[1..11] of integer;
begin
Dat[1]:=20;
Dat[2]:=25;
Dat[3]:=19;
Dat[4]:=25;
Dat[5]:=26;
Dat[6]:=22;
Dat[7]:=24;
Dat[8]:=28;
Dat[9]:=26;
Dat[10]:=21;
Dat[11]:=27;
m:=30;
for k:=1 to 11 do
if Dat[k] <m then
m:=Dat[k];
writeln(m);
end.
Ответ: 19.
<em>// PascalABC.NET 3.3, сборка 1590 от 03.12.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a:=ArrRandom(ReadInteger('n='),-99,99); a.Println;
var imin:=a.IndexMin;
var b:=a[:imin]; b.Println;
var c:=a[imin:]; c.Println
end.
<u>Пример</u>
n= 17
98 34 -59 -23 -65 -46 -15 -88 31 48 13 -7 70 -8 -69 65 -65
98 34 -59 -23 -65 -46 -15
-88 31 48 13 -7 70 -8 -69 65 -65
1. Если в палитре 256 цветов, то для хранения одного пикселя требуется log(2)256 = 8 бит (2^8 = 256). 16 Кбайт = 16*1024 байт = 16*1024*8 бит. Количество пикселей рисунка = 16*1024*8 / 8 = 16*1024
Размеры рисунка = (4*32)*(4*32) = 128*128
2. 1/16 Мбайт = 1024/16 Кбайт = 64 Кбайт = 64*1024 байт = 64*1024*8 бит. Память, занимаемая одним пикселем, = 64*1024*8 / (256*512) = 4 бита. Количество цветов в палитре = 2^4 = 16
3. 1/128 Гб = 1024/128 Мб = 8 Мб = 2^3 Мбайт = 2^3*2^10 Кбайт =
2^3*2^10*2^10 байт = 2^23 байт
819200 бит = 819200/8 байт = 102400 байт = 102400/1024 Кбайт =
100 Кбайт = 4*25 Кбайт = 2^2*25 Кбайт
Ответ:
не до конца понял ответы, думаю из объяснения поймете
Объяснение:
Кликаем по кнопке Пуск.
Откроется меню кнопки Пуск, в котором щелкаем по опции «Все программы»
Среди перечня программ находим «Стандартные».
Среди «Стандартных» находим «Служебные».
Кликаем по опции «Служебные»
Далее кликом по опции «Таблица символов» запускаем ее.
Выделяем нужный символ и нажимаем ctrl-C (Copy) двигаемся куда надо вставить и жмем ctrl-V (Paste)
Program Dujm
<span>
</span>
var a,res: real;
<span>
</span>
begin
writeln('Vvedite dlinu v sm');
readln(a);
res:=a/2.5;
writeln(a,' sm v dujmah ravno
',res:5:2);
readln;
end.