№2
var d, n, i: integer;
begin
d:=1;
n:=24 div 3;
for i:= 1 to n do
begin
d:=d*2;
writeln('Количество амеб через ', i*3, ' часов: ', d);
end;
<span>end.</span>
Var A,B:real;
Begin
Write('A = ');ReadLn(A);
Write('B = ');ReadLn(B);
WriteLn('S.Ar. = ',(A*A*A+B*B*B)/2);
WriteLn('S.G. = ',Sqrt(Abs(A*B)));
End.
Var
x1,y1,x2,y2:real;
Begin
Write('x1 = ');
ReadLn(x1);
Write('y1 = ');
ReadLn(y1);
Write('x2 = ');
ReadLn(x2);
Write('y2 = ');
ReadLn(y2);
WriteLn('R = ',sqrt(sqr(x1-x2)+sqr(y1-y2)));
End.
Эм. for i:=0 to n do
if a[i]<0 then
b:=b+a[i]
Кароч вводишь переменную b, приравниваешь к нулю. Бахаешь для каждого члена последовательности проверку. Если отрицательный - прибавляешь его к b.
<span>Таблица истинности AvA&B
</span>