40 написать программу кол - во трёхзначных чисел кратных 4 вот числа 4 44, 444, 4444, 44444 - паскаль

Программа:
С#:

using System;

class HelloWorld {

 static void Main() {

   Console.Write("x = ");

   double x = Convert.ToDouble(Console.ReadLine());

   

   Console.Write("y = ");

   double y = Convert.ToDouble(Console.ReadLine());

   

   double HalfCount = (x + y) / 2;

   double DoubleProduct = 2 * x * y;

   

   if (x < y) {

       x = HalfCount;

       y = DoubleProduct;

   } else {

       y = HalfCount;

       x = DoubleProduct;

   }

   

   Console.WriteLine($"x = {x}; y = {y}");

 }

}

В начале вводим значения переменных x, y (типа double (float), действительные числа). Отдельными переменными находим половину суммы и удвоенное произведение введённых чисел. Находим меньшее число и присваиваем значения согласно условию. В конце - выводим результат.

// В вашем коде сразу бросается в глаза деление 1 / (i * i). Тут 1, i -- это int => i*i тоже int. В итоге делим int на int. И результат получаем соответствующий. Обязательно узнайте про целочисленное деление

using System;

namespace ConsoleApp1

{

   internal class Program

   {

       private static void Main()

       {

           Console.Write("Enter n: ");

           int n = int.Parse(Console.ReadLine());

           if (n < 1)

           {

               Console.WriteLine("incorrect value");

               return;

           }

           double res = 1;

           for (int i = 1; i <= n; i++)

               res *= 1 + 1 / Math.Pow(i, 2);

           Console.WriteLine($"Result: {res}");

           Console.ReadLine();

       }

   }

}