1)Вычислить длину окружности и площадь круга одного и того же заданного радиуса R. Pascal (желательно...

1) Для вычисления длины окружности и площади круга с заданным радиусом R можно использовать следующие формулы:

• Длина окружности: L = 2 π R
• Площадь круга: S = π * R^2

Где π (пи) примерно равно 3.14159.

Блок-схема:

START
1. Ввести значение радиуса R
2. Вычислить длину окружности L = 2 * π * R
3. Вывести значение длины окружности L
4. Вычислить площадь круга S = π * R^2
5. Вывести значение площади круга S
STOP

2) Для нахождения суммы членов арифметической прогрессии с известным первым членом a, разностью d и числом членов n можно воспользоваться формулой:

• Сумма прогрессии: Sn = n (2 a + (n - 1) * d) / 2

Блок-схема:

START
1. Ввести значение первого члена a, разности d и числа членов n
2. Вычислить сумму прогрессии Sn = n * (2 * a + (n - 1) * d) / 2
3. Вывести значение суммы прогрессии Sn
STOP

3) Для замены целых чисел m и n в соответствии с условием задачи можно использовать следующий алгоритм:

• Если m ≠ n, то m и n заменить на max(m, n)
• Если m = n, то заменить m и n на нули

Блок-схема:

START
1. Ввести значения целых чисел m и n
2. Если m ≠ n, то заменить m и n на max(m, n)
3. Если m = n, то заменить m и n на нули
4. Вывести значения новых чисел m и n
STOP

(Продолжение в следующем сообщении)

Давайте разберем каждый вопрос по порядку с примерами кода на языке Pascal и описанием алгоритмов. Для наглядности опишу алгоритмы, а блок-схемы, к сожалению, не могу предоставить в текстовом формате.

1. Вычисление длины окружности и площади круга

Для вычисления длины окружности и площади круга с заданным радиусом ( R ) используются следующие формулы:

• Длина окружности ( C = 2 \pi R )
• Площадь круга ( A = \pi R^2 )

Пример программы на Pascal:

program CircleCalculations;
uses Math;

var
  R: Real;
  Circumference, Area: Real;

begin
  Write('Enter the radius R: ');
  ReadLn(R);
  
  Circumference := 2 * Pi * R;
  Area := Pi * Sqr(R);
  
  WriteLn('Circumference: ', Circumference:0:2);
  WriteLn('Area: ', Area:0:2);
end.

2. Сумма членов арифметической прогрессии

Сумма арифметической прогрессии с первым членом ( a_1 ), знаменателем ( d ) и числом членов ( n ) вычисляется по формуле: [ S_n = \frac{n}{2} \times (2a_1 + (n - 1) \times d) ]

Пример программы на Pascal:

program ArithmeticProgressionSum;

var
  a1, d: Integer;
  n, Sn: Integer;

begin
  Write('Enter the first term a1: ');
  ReadLn(a1);
  Write('Enter the common difference d: ');
  ReadLn(d);
  Write('Enter the number of terms n: ');
  ReadLn(n);
  
  Sn := n * (2 * a1 + (n - 1) * d) div 2;
  
  WriteLn('Sum of the arithmetic progression: ', Sn);
end.

3. Замена чисел m и n

Если числа ( m ) и ( n ) не равны, заменяем их на большее из них. Если равны, заменяем их на нули.

Пример программы на Pascal:

program ReplaceNumbers;

var
  m, n: Integer;

begin
  Write('Enter number m: ');
  ReadLn(m);
  Write('Enter number n: ');
  ReadLn(n);

  if m  n then
    begin
      if m > n then
        n := m
      else
        m := n;
    end
  else
    begin
      m := 0;
      n := 0;
    end;

  WriteLn('m: ', m, ', n: ', n);
end.

4. Проверка равнобедренного треугольника

Чтобы определить, является ли треугольник со сторонами ( a ), ( b ), ( c ) равнобедренным, проверяем, равны ли какие-либо две стороны.

Пример программы на Pascal:

program IsoscelesTriangleCheck;

var
  a, b, c: Integer;

begin
  Write('Enter side a: ');
  ReadLn(a);
  Write('Enter side b: ');
  ReadLn(b);
  Write('Enter side c: ');
  ReadLn(c);

  if (a = b) or (b = c) or (a = c) then
    WriteLn('The triangle is isosceles.')
  else
    WriteLn('The triangle is not isosceles.');
end.

5. Подсчет отрицательных чисел

Чтобы подсчитать количество отрицательных чисел среди ( a ), ( b ), ( c ), проверяем каждое из них.

Пример программы на Pascal:

program CountNegativeNumbers;

var
  a, b, c: Integer;
  count: Integer;

begin
  Write('Enter number a: ');
  ReadLn(a);
  Write('Enter number b: ');
  ReadLn(b);
  Write('Enter number c: ');
  ReadLn(c);

  count := 0;
  
  if a < 0 then
    Inc(count);
  if b < 0 then
    Inc(count);
  if c < 0 then
    Inc(count);

  WriteLn('Number of negative numbers: ', count);
end.

6. Подсчет амёб

Амёба делится каждые 3 часа. Находим количество амёб в указанные моменты времени.

Пример программы на Pascal:

program AmoebaCount;

var
  hours: Integer;
  amoebas: Integer;

begin
  amoebas := 1; // Начальное количество амёб

  for hours := 3 to 24 do
    begin
      if hours mod 3 = 0 then
        amoebas := amoebas * 2;
        
      WriteLn('After ', hours, ' hours: ', amoebas, ' amoebas');
    end;
end.

7. Сумма элементов массива, кратных K

Находим сумму элементов массива, которые делятся на ( K ) без остатка.

Пример программы на Pascal:

program SumOfMultiples;

const
  MAX = 100;

var
  arr: array[1.MAX] of Integer;
  n, K, i, sum: Integer;

begin
  Write('Enter number of elements in the array: ');
  ReadLn(n);
  Write('Enter the elements of the array: ');
  for i := 1 to n do
    Read(arr[i]);
  Write('Enter the value of K: ');
  ReadLn(K);

  sum := 0;
  for i := 1 to n do
    if arr[i] mod K = 0 then
      sum := sum + arr[i];

  WriteLn('Sum of elements divisible by ', K, ': ', sum);
end.

Эти примеры демонстрируют базовые алгоритмы и реализацию на языке Pascal для заданных задач.