Практикум по курсу "Алгоритмизация и программирование". Часть 1. Андрианова А.А - 33 стр.

               Console.Write("Введите M:");
               int.TryParse(Console.ReadLine(), out M);
               if (M <= 0)
               {
                   Console.WriteLine("Введите положительное M\n");
                   return;
               }
               for (int k = M; k > 0; k--)
               {
                   Sdel = 1;
                   for (int i = 2; i <= k / 2; i++)
                       if (k % i == 0)
                           Sdel = Sdel + i;
                   if (Sdel == k && k != 1)
                   {
                       Console.WriteLine("Совершенное число={0}", k);
                       k = 1;
                   }
               }
               if (Sdel == 1)
                   Console.WriteLine("Таких чисел нет");
           }
       }
   }

    Задача 3. Цилиндр объема 1 имеет радиус основания r. Определить
высоту для значений r=0.5, 1, 1.5 ...5.
    Алгоритм решения этой задачи очень прост. Нестандартным здесь
является только шаг изменения переменной-счетчика – шаг равен 0.5.
Поэтому тип переменной-счетчика надо задать как “число с плавающей
точкой”.
    Блок-схема решения задачи 3 показана на Рис.3.4.

   Код программы для задачи 3.
   using System;

   namespace Examples
   {
       class Program1
       {
           static void Main(string[] args)
           {
               for(double r=0.5; r<=5; r=r+0.5)
               {
                  double h=1/(Math.PI*r*r);
                  Console.WriteLine("r={0}\t h={1}",r,h);
                }
           }
       }
   }


                                       33