Var i:integer;
begin
i := 30;
while (i >= 1) do
begin
if (i mod 2 = 1) then
writeln(i);
i := i - 1;
end;
<span>end.
----------------
2)
var i, a: integer;
begin
for i:=0 to 30 do
if (i mod 2 = 1) then
a := a + i;
writeln(a);
end.
<span>------------
Удачи:)</span></span>
Pascal
const
n = 15;
type
mas = array [1..n] of integer;
var
m : mas;
i : integer;
procedure inic (var a : mas);
var
i : integer;
begin
for i := 1 to n do
a[i] := 0;
end;
procedure num (var a : mas);
var
i : integer;
begin
for i := 1 to n do
a[i] := i;
end;
procedure w (var a : mas);
var
i : integer;
begin
for i := 1 to n do writeln (m[i]);
readln ();<span>
end;</span>
begin
inic (m);
num(m);
w(m);
end.
1) Нужен сам рисунок
2) 64 * 64 = 4096 пикселей
512 байт = 4096 бит
4096 / 4096 = 1 бит / пиксель
2¹ = 2
Ответ: 2 цвета.
3) 128 * 128 = 16384 пикселей
4 КБайта = 4096 байт = 32768 бит
32768 / 16384 = 2 бита / пиксель
2² = 4
Ответ: 4
4) 256 = 2⁸, значит, 8 бит (1 байт) / точка
Ответ: 2400 точек.
смотри : Берешь 5 литров ( заливаешь в большой баллон)
переливаешь в маленький становиться (дальше буду использовать операции долить, вылить перелить)
1. 3 / 2 (М/Б)
2. 0/2
3. 2/0
4. 2/5
5. 3/4
6. 0/4
7. 3/1 и вот в большом баллоне ровно 1 литр воды