Вначале информационный объем был 24 бита (2^16=16777216), потом стал 8 бит (2^8=256). 24/8= 3. Информационный объем изображения уменьшился в три раза. Вот так, вроде.
Var l:integer;
l1:real;
lm:integer;
begin
write('Введите расстояние в сантиметрах ');
read(l);
l1:=l/100;
lm:=trunc(l1);//округляет значение до близжайшего вычитая из него -0.5
writeln(lm,' метров');
<span>end.</span>
Beginvar b:boolean; s:real;a:=0;writeln('slovo');readln(z);while not (eof(z)) do beginif z=d then a:=a+1;writeln(a);end;end.
Excel, a не EXELE. Xls/xlsx