Var a,b,c:integer;
begin
readln(a,b,c);
if (a=b) and (b=c) and (a=c) then write('Равносторонний')
else write('Не равносторонний');
end.
Кодирование информации - это процесс шифровки информации таким образом , чтобы ее было удобно передавать и хранить . Как-то так
16 бит - 2 байта. 2*1240*480=1190400 байт 1190400/1024=1162,5 КБайт
32=2^5
256=2^8 количество бит на цвет уменьшилось на 3, значит в (2^3 = 8) уменьшился объем в оперативке
Var i,N1,N2,M,j:integer;
begin
writeln('Введите число N1');Read(N1);
writeln('Введите число N2');Read(N2);
M:= abs(n2 - n1)+1;j:=n1;
for i:=1 to M do begin
writeln(i:3,j:3);
j:=j + 1;end;<span>end.</span>