Я тут немного отсебятины добавил, что бы программа не слетала если что-то нерпавильное вводиш))
var
a: string;
b: integer;
begin
writeln ('Введите строку');
read (a);
if (a='город минск')
then writeln ('город МИНСК')
else
begin
writeln ('введите "город минск", 1-продолжить, 0-выйти');
read (b);
end;
while (b = 1) do
begin
writeln ('Введіте строку');
read (a);
if (a='город минск')
then writeln ('город МИНСК')
else
begin
writeln ('введите "город минск", 1-продолжить, 0-выйти');
read (b);
end;
end;
end.
1. Процессор
2.
3. Оперативная
4. Кэш
5. Внешняя
6. Шина
У вас на фото ничего не видно, вот пару ответов, попытайтесь сделать более чёткую фотографию.
<em>// PascalABC.NET 3.2, сборка 1425 от 22.04.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
function KS(a:array[,] of integer):(integer,integer);
begin
(var k,var s):=(0,0);
for var i:=0 to a.RowCount-1 do
for var j:=i to a.ColCount-1 do
if a[i,j]<0 then (k,s):=(k+1,s+a[i,j]);
Result:=(k,s)
end;
begin
var a:=MatrRandom(5,5,-50,50); a.Println(4);
var r:=KS(a); Writeln('k=',r[0],', Sum=',r[1]);
var b:=MatrRandom(8,8,-80,45); b.Println(4);
r:=KS(b); Writeln('k=',r[0],', Sum=',r[1]);
end.
<u>Пример</u>
-9 -41 -6 -49 36
6 -7 -2 -1 28
22 -29 -20 -12 7
-11 -37 14 34 -41
-23 11 -9 -26 -46
k=11, Sum=-234
9 34 -68 -32 -43 -61 -19 -55
-66 3 -79 41 -47 27 -7 31
-71 -7 -26 28 -58 -2 -61 -77
-66 39 -39 -76 -13 2 21 6
-56 42 -61 1 -39 -69 -57 -2
-51 -79 -57 10 -10 -27 29 19
-48 -55 -56 -76 43 -32 29 -70
15 -71 -46 -37 23 -24 3 -22
k=23, Sum=-1010
200 = 11001000
543 = 1000011111
950 = 1110110110
1025 = 10000000001
1. Для хранения одного из 64 цветов требуется log(2)64 = 6 бит (2^6=64); для хранения одного из 32 цветов требуется log(2)32 = 5 бит (2^5=32).
Объем видеопамяти = 3*6*980*820 бит = 3*6*980*820/8 байт = 1808100 байт. Требуемый объем - 2*5*1024*880 бит = 2*5*1024*880/8 байт = 1126400.
1126400 < 1808100 ⇒ ответ на вопрос: можно
2. Для хранения одного из 4 цветов требуется log(2)4 = 2 бита (2^2=4); для хранения одного из 64 цветов требуется log(2)64 = 6 бит (2^6=64).
Объем файла после изменения палитры уменьшится в 6/2 = 3 раза.
3. 375 Кбайт = 375*1024 байт = 375*1024*8 бит
Память для одного пикселя = 375*1024*8 / (640*480) = 10 бит.
Максимально возможное число цветов = 2^10 = 1024
4. Размер цифрового моноаудиофайла измеряется по формуле:
A = D*T*i,
где D – частота дискретизации (Гц), T – время звучания или записи звука, i - разрядность регистра (разрешение или глубина кодирования звука).
20 Мбайт = 20*1024 Кбайт = 20*1024*1024 байт = 20*1024*1024*8 бит.
20 мин = 20*60 с
D = 20*1024*1024*8 / (20*60*8) ≈ 17476,3 Гц
