Var a,b,c:real;
begin
writeln('Введите a');
readln(a);
writeln('введите b');
readln(b);
c:=a/b;
writeln (c);
end.
10111011(2) = 1*2^7+0+1*2^5+1*2^4+1*2^3+0+1*2^1+1*2^0 = 128+32+16+8+2+1 = 187(10)
Для хранения информации об одном символе требуется 6 бит. Всего символов - 130, значит объем информации равен 6*130 = 780 бит
|----------------
| |
| |
|---------------|
Var a,b,c:integer;
beginb:=100;
writeln('введите число');
readln(a);
repeatif (a>b) then writeln(b);
b:=b+1;
until (b>999);
<span>end.</span>