Var a,b:integer;
Begin
a:=1;
b:=2;
While a + b < 10do
Begin
a:=a+2;
b:=b+1
End;
a:=a*2;
b:=b*10;
WriteLn('a = ',a,' b = ',b)
End.
Program Maks;
var a, b, max:integer;
begin
writeln('vvedite chetnoe chislo, a, b');
readln(a);
if a>b then max:=a else max:=b;
writeln(max);
readln;
end.
Лестница получится, идущая слева-направо с снизу-вверх.
Зайди на своём пк в power point
Общий объем памяти I = K * i
(K - кол-во пикселей, i - объем памяти на 1 пиксель/цвет или глубина цвета)
По формуле или
(N - кол-во цветов в палитре, i - глубина цвета)
Глубина цвета бит
Объем памяти K = 2048 * 1024 пикселей * 8 бит = 16777216 бит
16777216.0 бит = 2097152.0 байт = 2048.0 Кбайт = 2.0 Мбайт = 0.001953125 Гбайт
Кол-во изображений на флешке 4 / 0.001953125 = 2048 шт