Var i,a,b,r:integer;
begin
read(a,b);
r:=1;
for i:=a to b do
r*=i;
writeln(r);
<span>end.</span>
Тут все просто. У нас известны числа. и мы просто подставляем их в схему. И.к. а больше нуля и б больше нуля. А у нас а:=а+б. Во втором действие. то понятно, что а>0. по этому мы идем по стрелочки "нет". и опять из б Вычитаем 3. а к а прибавляем б. и скоро у нас а станет отрицательным( т.к. б станет отрицательным и мы будем вычитать б из а). И в итоге получится ответ -2-(-8)=-2+8=6
Ответ:6
3 килобайта в секунду * 10 секунд = размер файла = 30 килобайт
30 килобайт это 30720 байт.
30720 байт/512байт = 60 секунд = 1 минута.
Файл будет передаваться 1 минуту при скорости 512байт/сек
3е..............................................