1)
const f0=1; fk=10; h=0.5;
var f:real; i:integer;
begin
f:=f0-h;
writeln('Фунты Кг');
for i:=1 to round((fk-f0)/h)+1 do
begin
f:=f+h;
writeln(f:4:1,f*0.4:7:3);
end;
end.
2)
const f0=1; fk=10; h=0.5;
var f:real;
begin
f:=f0-h;
writeln('Фунты Кг');
while f<fk do
begin
f:=f+h;
writeln(f:4:1,f*0.4:7:3);
end;
end.
3)
const f0=1; fk=10; h=0.5;
var f:real;
begin
f:=f0-h;
writeln('Фунты Кг');
repeat
f:=f+h;
writeln(f:4:1,f*0.4:7:3);
until f>=fk;
end.
Результат:
Фунты Кг
1.0 0.400
1.5 0.600
2.0 0.800
2.5 1.000
...
9.0 3.600
9.5 3.800
10.0 4.000
Дано:
Символов - 512
Мощность алфавита - 16
Формулы:
<span>2^b>=A (где A-мощность алфавита, b-количество бит, приходящееся на 1 символ).
</span>Вычисление объёма для всего текста:
Объём, приходящийся на 1 символ*количество символов=общий объём
Решение:
2^b>=16
b=4 бит
4(бит)*512(символ)=2048 бит=256 байт=0,25 кб
Ответ: <span>0,25 кб</span>
Интернет вреден для глаз но при этом можно узнать много полезной информаций а если сидеть по 15 мин.вдень не чего не встанет можночитать книги проходить тесты и естественно поиграть в логические игры
Модем - модулятор-демодулятор...
<span> "бот" =8,"вол"=9 "болт"=11,"лото"=12</span>