Ввести три числа и определить, верно ли, что они вводились в порядке возрастания.

Var one,two,three: integer; begin      write('введите первое число число: ');       readln(one);     write('введите второе число число: ');       readln(two);       write('введите третье число число: ');       readln(three);   if (one < two) and (two < three) then      writeln('числа введены в порядке возрастания')    else      writeln('числа не введены в порядке возрастания'); end.

Var i,k,j: integer; begin readln(i,k,j); if ( (i< k) and (k< j)) then write ('true') else writeln('false'); end.

7fe=14*16^0+15*16^1+7*16^2=2046 в 10 с/с 2046/2=1023 байт

e=14

f=15

 

ответ 2

для кодирования 64 цветов нужно 6 бит (2^6 = 64). для 600х450 пикселей потребуется n = 600*450*6 = 1620000 бит.

 

если предположить некомпактный формат хранения, при котором вышеуказанные 6 бит содержатся в одном байте (а 2 бита этого байта не используются), то для хранения n бит потребуется n/6 = 600*450 = 270000 байт = 270000/1024 кбайт = 263.6719 = 264 кбайта (примерно).

 

если же предположить чуть более компактный формат хранения, при котором 24 бита размещают в 3-х байтах, то для хранения n бит потребуется (n/24)*3 = 202500 байт = 202500/1024 кбайт = 197.7539 = 198 кбайт (примерно). в этом случае количество кбайт будет немного меньше, чем в первом.