// PascalABC.NET 3.1, сборка 1184 от 02.03.2016
begin
var a:=SeqGen(8,1.0,i->i*0.5).ToArray; // 1 и 2
a.Println(NewLine); // вывод
Writeln('Меньших 0.1: ',a.Count(x->x<0.1)); // 3
for var i:=0 to 3 do Swap(a[i],a[7-i]); // 4
a.Println(NewLine); // вывод
end.
<u><em>Тестовое решение:</em></u>
1
0.5
0.25
0.125
0.0625
0.03125
0.015625
0.0078125
Меньших 0.1: 4
0.0078125
0.015625
0.03125
0.0625
0.125
0.25
0.5
1
Var
c, i, s: real;
begin
s := 0;
c := 50;
while c > 12 do
begin
i := (c / 100) * 20;
c := c - i;
s := s + 1;
end;
write(s);
end.
Разбиение всей работы, которую необходимо выполнить для достижения целей проекта, на более мелкие операции и действия до такого уровня, на котором способы выполнения этих действий вполне ясны и соответствующие работы могут быть оценены и спланированы.
Я считаю, что четырёх угольников 6