Составить Блок-схемы к следующим задачам: 1. вычисления среднего арифметического двух чисел.
2. вычисления расстояния между двумя точками плоскости.
3. вычисления площади треугольника по формуле Герона.
4. вычисления площади боковой поверхности куба.
5. вычисления площади и гипотенузы прямоугольного треугольника, если известны его катеты.
6. вычисления суммы модулей трех вещественных чисел.
7. вычисления площади круга, если известна длина окружности.
8. вычисления площади равностороннего треугольника.
9. Напишите программу вычисления суммы арифметической прогрессии, если известен ее начальный член и разность, а также количество ее членов.
10. Поменять местами значение двух чисел a и b
Дам 50б и корону

// PascalABC.NET 3.2, сборка 1344 от 22.11.2016
// Внимание! В более ранних версиях работа не гарантируется!

begin
  var m:=ReadInteger('Количество строк в массиве:');
  var n:=ReadInteger('Количество столбцов в массиве:');
  Writeln('Вводите элементы массива');
  var a:=new integer[m,n];
  for var i:=0 to m-1 do
    for var j:=0 to n-1 do Read(a[i,j]);
  Writeln('-'*20);
  foreach var c in a.Cols do Write(c.Sum,' ')
end.

Пример
Количество строк в массиве: 4
Количество столбцов в массиве: 3
Вводите элементы массива
1 6 -2
0 6 8
-3 6 1
4 6 -3

2 24 4

Using System;
using System.Collections.Generic;
using System.Linq;
using System.Text;

namespace ConsoleApplication4
{
    class Program
    {
        static void Main(string[] args)
        {
            bool result = false;
            Console.WriteLine("Введи строку");
            string str = Console.ReadLine();
            for (int i = 0; i < str.Length - 1; i++)
            {
                if (str.Substring(i, 1) == str.Substring(i + 1, 1))
                {
                    result = true;
                    break;
                }
            }

            if (result == true)
                Console.WriteLine("Да, встречаются");
            else
                Console.WriteLine("Нет, не встречаются");

            Console.ReadKey();
        }
    }
}