Картинка с заполненной таблицей прикреплена,рассказываю сам алгоритм
Берём 640*480 пикселей и 4 бита
Всего точек на экране: 640*480=307200
Необходимый объём видеопамяти: Умножаем количество битов на количество точек на экране: 307200*4=1228800 бит
1 Килобайт=2 в 10 степени байт= 2 в 13 степени бит
1 Мегабайт=2 в 20 степени байт=2 в 23 степени бит
Как же перевести из битов в килобайт?
Берём наше решение-1228800 бит
вычисляем 2 в 13 степени=8192
1228800/8192=150 Кб и дальше по такой же схеме делаешь
Program lol;
Var
x,y:integer;
p:boolean;
Begin
Readln(x,y);
P:= (x>2) and (y>3);
Writeln(p)
<span>End.</span>
Без операционной системы. Условно-бесплатные, пробные
Я думаю, что подойдет светло серый с оттенками красного... Наверное так
Var
s: integer;
begin
readln(s);
case s mod 10 of
1: writeln('Копейка');
2..4: writeln('Копейки');
5..9, 0: writeln('Копеек');
end;
<span>end.</span>