Сейчас, программирование 1.вычислить среднее арифметическое всех чисел, оканчивающихся на 2 или на 3 в интервале от 1 до 100. 2.найти произведение чисел от a до b, оканчивающихся на 5 и делящихся нацело на 9.

1)  using System;

namespace Znaniya
{
    class MainClass
    {
        static int lastnumber(int n)
        {
            int result = n%10;
            return result;
        }
        public static void Main (string[] args)
        {
            double count=0;
            double sum = 0;
            for(int i = 0; i<=100;i++){
                if(lastnumber (i)==2 ||lastnumber (i)==3){
                    sum = sum + i;
                    count ++;
                }
            }
            double rtn = sum / count;
            Console.WriteLine (rtn);
        }
    }
}

ответ: 47,5

Пусть первые две цифры равны a, вторые две равны b (1 ≤ a ≤ 5 и 0 ≤ b ≤ 5). Тогда искомое число - . Переведем его в десятичную систему счисления -

Если число - квадрат, то, так как  делится на 7, то оно делится на  ⇒  делится на 7.
Пусть a = 1. Тогда b тоже 1. a не равно b ⇒ противоречие.
Пусть a = 2. Тогда b = 3. Проверяем: . 1029 - не квадрат ⇒ не подходит.
Пусть a = 3. Тогда b = 5. Проверяем: . 2303 - не квадрат ⇒ не подходит.
Пусть a = 4. Тогда b = 5. Проверяем: . 4067 - не квадрат ⇒ не подходит.
Пусть a = 5. Тогда b = 3. Проверяем: . 6321 - не квадрат ⇒ не подходит.
Таким образом, получаем, что нет ни одного числа, которое удовлетворяет всем подсказкам.

var a,b,c:integer;
begin read(a,b,c);
   if (a > b) and (a > c) then
        write(a)
   else
       if (b > a) and (b > c) then
        write(b)
   else
        write(c);
end.
В делфи добавишь на форму Эдиты(4 штуки) и одну кнопку. В трех Эдитах будешь вводить свои значения, а в четвертом выведешь ответ и все это при клике на кнопку:
Procedure btn1Click;
var a, b, c, max: integer; 
begin 
a:= StrToInt(edt1.Text); // где edt1,2,3 - имена полей для ввода(Эдиты)
b:= StrToInt(edt2.Text);
c:= StrToInt(edt2.Text);
   if (a > b) and (a > c) then 
        max:= a; 
   else 
       if (b > a) and (b > c) then 
        max:= b;
   else 
        max:= c;
edt4.Text:= 'Максимальное число' + max;
//или ShowMessage(Максимальное число' + max); 
end.