Помогите в Паскале

[Samat]

Помогите в Паскале

1.Ввести вещественные числа A и B (A B > ). На отрезке длины A размещено максимальное количество отрезков длины B без наложений. Без использования операции умножения и деления найти длину незанятой части A и количество содержащихся в нём отрезков.
Если можно то и блог схему

 

[Евгений]

var A,B,sum:Real;
n:integer;
begin
Write('A=');
Readln(A);
Write('B<A=');
Readln(B);
n:=0;
sum:=0;
repeat
if (sum+B)>A then break
else
begin
sum:=sum+B;
Inc;
end;
until (sum+B)>A;
Writeln('Ne zanyato=',(A-sum):0:2);
Writeln('Otrezkov B v A =',n);
Readln;
end.

Блок схемы рисовать не умею.

 

[Samat]

Спасибо большое,а вот такое не сможете помочь ?Дан массив K(N). Преобразовать его, упорядочив по убыванию все элементы, стоящие после второго нулевого. Выдать на печать исходный и упорядоченный массивы. Если преобразование невозможно, то выдать об этом сообщение

 

[Евгений]

const n=10;
var A:array[1..n] of integer;
t,e,i,j:integer;
begin
for i:=1 to n do
begin
A:=Random(26)-15;
Write(A:4);
end;
Writeln;
t:=0;
e:=0;
repeat
Inc(e);
if A[e]=0 then Inc(t);
if t=2 then break;
if e=n then break;
until (t=2) or (e=n);
if t<2 then Writeln('Nevozmozhno')
else
begin
for i:=e+1 to n-1 do
for j:=e+1 to n-1 do
if a[j]<A[j+1] then
begin
t:=A[j];
A[j]:=A[j+1];
A[j+1]:=t;
end;
for i:=1 to n do Write(A:4);
end;
Readln;
end.

 

[Samat]

кто поможет с блог схемами
Есть программы, которые рисуют блок схемы по тексту программы. попробуйте поискать таковые самостоятельно.