program <em>НАЗВАНИЕ ПРОГРАММЫ</em>;
{$APPTYPE CONSOLE}
uses
SysUtils;
var
a:integer;
begin
writeln('Enter the founding year of Minsk');
readln(a);
if (a=1067) then writeln('Right')
else writeln('You make a mistake');
readln;
end.
<span>
<em>НАЗВАНИЕ ПРОГРАММЫ </em>- поменяйте на название программы.
Минск, вроде, основан в 1067 году, если не прав, то поправьте программу. Вместо 1067 введите год основания.</span>
7. 2 цвета кодируются глубиной цвета в 1 бит, т.к. 2 = 2^1. Значит рисунуко 184*2048 займет 184*2048*1 = 376832 бит = 47104 байт = 46 кбайт (8 бит = 1 байт, 1 кбайт = 1024 байт)
8. В рисунке 256*208 всего 256*208 = 53248 пикселей.
13 кбайт = 13312 байт = 106496 бит
Получаем глубину цвета, поделив информационный объем на количество пикселей: 106496/53248 = 2 бита на цвет.
С помощью 2-х бит можно закодировать 2^2 = 4 цвета.
Program n1;
var c: char;
begin
for c:='a' to 'z' do write(c,' ');
for c:='A' to 'Z' do write(c,' ');
end.
Readln(n);
for i:=1 to n do
a[i]:=random(100); //тут можно ввести макс. значение для рандома
k:=n div 2;
for i:=1 to k do
begin
t:=a[i]; a[i]:=a[k-i+1]; a[k-i+1]:=t;
end;
inc(k);
for i:=k to n do
begin
t:=a[i]; a[i]:=a[n-i+1]; a[n-i+1]:=t;
end;
for i:=1 to n do
write(a[i],' ');
<span>writeln;
readln;
end.</span>