1. Подсчитать сумму 1+2+3...+n.
2. Подсчитать сумму всех нечетных чисел от 101 до 301.
3. Плене которого держали в охраняемой землянке, делал подземных вод. В первую ночь он прокопал ход длиной 1 м каждую следующую ночь из-за потери сил он делал хоть на 5 % короче через сколько дней может сбежать если до свободы путь 13 м?

program raf105;

var abc,ab,bc:integer;

begin

write('Введите трёхзначное число: ');

readln(abc);

ab:= abc mod 100;

bc:= abc div 10;

if ab = bc

 then writeln('Число состоит из одинаковых цифр')

 else writeln('Число не состоит из одинаковых цифр');

end.

Для выполнения задачи достаточно найти первые 2 цифры и последние 2 цифры если они равны, то число состоит из одинаковых цифр

abc mod 100 Убирает все сотни из числа.

Например было число 123, стало 23.

482 стало 82

abc div 10 Считает сколько в числе целых десяток, но не считает остаток.

Например было число 123, стало 12

482 стало 48

Сравнивание 2 первых и 2 последних цифр

253      25 и 53 не равны, значит число не состоит из одинаковых цифр

121       12 и  21 не равны, значит число не состоит из одинаковых цифр

111        11 и 11  равны, значит число состоит из одинаковых цифр

Сначала сделал с рекурсивной функции, но затруднение было только с суммой элементов, по этому написал через цикл как впрочем и должно быть.

Console.WriteLine("Введите число");

           int x = Convert.ToInt32(Console.ReadLine());

           int y = x;

           int sum = 0;

           for (int i = 0; i < 4; i++)

           {

               y = x % 10;

               x = x / 10;

               Console.Write(y);

               sum = sum + y;

           }

           Console.Write(" = " + sum);

           Console.ReadLine();