1.
Var A,B : Integer;
Begin
Readln(A,B);
If A>B then Writeln(A,' ',B*B) else Writeln(B,' ',A*A)
end.
2.
Var A : Byte;
Begin
Readln(A);
Case A of
1..3 : Writeln('Первый квартал');
4..6 : Writeln('Второй квартал');
7..9 : Writeln('Третий квартал');
10..12 : Writeln('Четвертый квартал');
end;
end.
K= 2 в степени а
a=Глубина цвета
M=количество точек по горизонтали
N=количество точек по вертикали
K=количество цветов
V=объём видеопамяти
K=2 =2 в 1 степени
a=1
V = M × N × a
V=800×480×1=384000 бит=48000 байт=46.875 кбайт
CLS
a:
INPUT n
IF n < 1 OR INT(n) <> n OR n > 100 THEN GOTO a
DIM a(n)
FOR i = 1 TO n
b:
INPUT a(n)
IF a(n) < 1 OR INT(a(n)) <> a(n) OR a(n) > 300 THEN GOTO b
IF INT((a(n)) / 3) = ((a(n)) / 3) THEN s = s + a(n)
NEXT i
PRINT s
END
каждый цвет может иметь 4 значения 2^2
1.Для определённой работы
2.Драйверы нужны для обновления или улучшения пк
3Потому что я хз ведь я не разработчик, и никто не ответит
4-?
5- Они служат для работоспособности пк