RAR, ZIP, ARJ, JPEG, MP4 и много других форматов - практически любой формат это некое сжатие информации для компактного хранения.
В виде исключения приходят на память только TXT, WAV и быть может BMP
Var
n,x:string;
i:integer;
begin
write('Введите число n: ');
readln(n);
for i:=length(n) downto 1 do x:=x+n[i];
writeln('Обратное число: ',x)
<span>end.
или можно так:
</span>var
n:string;
begin
write('Введите число n: ');
readln(n);
writeln('Обратное число: ',ReverseString(n) )
end.
Var
a:array[1..35]of integer;
i,max,n:integer;
begin
readln(n);
for i:=1 to n do
read(a[i]);
max:=a[1];
for i:=1 to n do
if a[i]>max then
max:=a[i];
writeln;
writeln(max);
end.
Формула количества информации
<span>N-кол-во цветов, i-кол-во бит на одну точку</span>
Program z;
var a,i:integer; max:real;
begin
max:=0;
i:=0;
repeat writeln('Введите число'); read(a);
max:=max+a;
i:=i+1;
until a=0;
writeln('Сумма =',max);
writeln('Средние значение =',max/i);
<span>end.</span>