Данный алгоритм зациклится при условии что впереди не будет стены(препятствия).
Необходимо построить лепестковую диаграмму по десяти координатам, причем, все четные (по порядку) значения должны быть равны между собой и равны половине нечетных. Т.е. если пять нечетных значений равны 10, то пять четных должны быть равны 5. Пример с данными для построения этой диаграммы прилагается.
Var
i,n,m,x,k:Integer;
s:String;
Begin
Read(n);
While (n>0) do
begin
m:=(n mod 10);
n:=(n div 10);
x:=x+m;
k:=k+1;
end;
Writeln('Сума : ',x);
Writeln('<span>Середнє арифметичне </span> : ',x/k:0:1);
end.
Var n,v,k:integer;
begin
writeln('Введите объём аквариума(в литрах)');
readln(v);
writeln('Введите количество рыбок');
readln(n);
if v>=(3*n) then
begin
k:= (v div 3) -n;
writeln('Аквариум не является перенаселённым,в нём можно ещё разместить ',k,' р.');
end
else begin
k:=n- (v div 3);
writeln('Аквариум является перенаселённым,необходимо поместить ',k,' р. в другой аквариум');
end;
end.<span>
</span>