Пример алгоритма, содержащего ветвление.

Приведу пример на Паскале.
Var x,y:integer;
Begin
x:=5;
y:=3;
If x>y Then
x:x-y 
Else
x:=x+y;
writeln(x);
end.
Исход программы зависит от заданных переменных.

решения задачи используется цикл for

var

a, b: integer;

begin

write('A: '); readln(a);

write('B: '); readln(b);

if a < b then

for a := a to b do

writeln (a * a * a);

readln;

end.

Пользователь может ввести значения так, что a будет больше b. В таком случае цикл for не выполнится.

Действительно, if здесь лишнее. Оно имеет смысл только в случае, когда обрабатывается ситуация, где значение b меньше, чем a:

var

a,b:integer;

begin

write('A: '); readln(a);

write('B: '); readln(b);

if a < b then

for a:=a to b do

writeln(a*a*a)

else

for a:=a downto b do

writeln(a*a*a);

end.

№1)

16 бит = 16 / 8 байт = 2 байта

64 байта = 64 * 8 байта = 512 бит

1 Кб = 1024 байт = 8 * 1024 бит = 8192 бит

2560 байт = 2560 / 1024 Кб = 2,5 Кб ≈ 0,00241 Мб

2 Гб = 1024 * 2 Мб = 2048 Мб

№2)

200 байт ≈ 0,1953 Кб

0,1953 Кб > 0,25 Кб => 200 байт > 0,25 Кб

1536 байт = 1,5 Кб

1,5 Кб = 1,5 Кб => 1536 байт = 1,5 Кб

3 байта = 3*8 бит = 24 бит

24 бит = 24 бит => 3 байта = 24 бита

1000 бит = 125 байт = 0,122 Кб

0,122 Кб < 1 Кб => 1000 бит < 1 Кб

№3)

1) 2 Мб = 2048 Кб

2048 / 100 ≈ 20 файлов можно разместить на дискете

2) 4 Мб = 4096 Кб

4096 / 100 ≈ 40 файлов можно разместить на дискете