Var
a: array [1..5] of integer;
i: byte;
k: integer := Integer.MaxValue;
begin
for i := 1 to 5 do
readln(a[i]);
for i := 1 to 5 do
k := Min(k, a[i]);
writeln(k);
<span>end.</span>
<h2>
Задача 1.</h2><h3>
Дано:</h3>
w (ширина) = 512
h (высота) = 512
N (кол-во цветов) = 256
___________________
I (кол-во видеопамяти)- ?
<h3>Решение.</h3>
K - кол-во пикселей; i - информационный вес одного пикселя
2²¹ бит = 2¹⁸ байт = 2⁸ кБайт = 256 кБайт
Ответ: 256 кБайт.
<h2>
Задача 2.</h2><h3>
Дано:</h3>
w (ширина) = 1024
h (высота) = 768
N (кол-во цветов) = 16777216
___________________
I (кол-во видеопамяти)- ?
<h3>Решение.</h3>
K - кол-во пикселей; i - информационный вес одного пикселя
9 * 2²¹ бит = 9 * 2¹⁸ байт = 9 * 2⁸ кБайт = 2.25 мБайт
Ответ: 2.25 мБайт.
<h2>Задачу 3 оставлю здесь:</h2>
znanija.com/task/27410968
Номер 2.
uses GraphABC;
begin
circle(300,200,100);
circle(300,200,90);
circle(300,200,80);
circle(300,200,70);
circle(300,200,60);
circle(300,200,50);
circle(300,200,40);
circle(300,200,30);
circle(300,200,20);
circle(300,200,10);
<span>end.
Номер 1.
uses GraphABC;
begin
circle(25,100,25);
circle(75,100,25);
circle(125,100,25);
circle(175,100,25);
circle(225,100,25);
circle(275,100,25);
circle(325,100,25);
circle(375,100,25);
circle(425,100,25);
circle(475,100,25);
circle(525,100,25);
circle(575,100,25);
<span>end.</span></span>