Var
a:array[1..12]of integer;
m, n:integer;
Begin
a[1]:=31;a[7]:=31;
a[2]:=28;a[8]:=31;
a[3]:=31;a[9]:=30;
a[4]:=30;a[10]:=31;
a[5]:=31;a[11]:=30;
a[6]:=30;a[12]:=31;
Write('Введите номер месяца -> ');
Readln(m);
Write('Год високосный(1 - да || 0 - нет)?');
Readln(n);
if (m = 2) then Writeln(a[m] + n) else
Writeln(a[m]);
end.
Sub abc()
Dim i As Integer, s As Integer
s = 0
For i = -5 To 10
s = s + i
Next i
MsgBox s
End Sub
По форме представления информация подразделяется на следующие виды
A) текстовую, числовую, графическую, звуковую, комбинированную
Общее число пикселей 800×600 = 480 000.
Максимальный объем памяти в битах 600×1024×8 = 4 915 200.
Тогда на один пиксель приходится 4 915 200 / 480 000 ≈ 10 бит.
Максимальное количество цветов в палитре 2¹⁰ = 1024.
Можно очистить кеш, удалить ненужные приложения, или же ещё раз перезагрузить (можешь посмотреть что делать в ютубе)