<span>Строка №6 - числу нельзя присвоить какое нибудь значение.
Строки №8 и №10 - целочисленным нельзя присвоить дробное значение.
Строка №7 - между 7 и 8 должна стоять точка, а не запятая.
Вот изменённая программа:
program qq;
var a, b, x, y: real;
begin
a := 5;
x := 10;
y := 7.8;
b := 2.5;
x := 2*(a + y);
a := b + x;
end.</span>
Var
s,s1:string;
i:integer;
begin
writeln ('Введите строку.');
readln (s);
s1:='';
for i:= 1 to length(s)-1 do
begin
if s[i] <> ' ' then s1:=s1+s[i];
if (s[i] = ' ')and(s[i+1] <> ' ') then s1:=s1+s[i];
end;
s:='';
if s1[1] = ' ' then
for i:= 2 to length(s1) do
s:=s+s1[i]
else
for i:= 1 to length(s1) do
s:=s+s1[i];
writeln(s);
end.
I большая означает объём информации, например.
I=K*i - для текста
I=n*i*v*t - для звука(n - количество потоков(моно, стерео, квадро....)
I=h*w*i - для изображений(h, w - высота и ширина картинки)