Вычислить, используя все возможные варианты цикла.Разность чисел от 1 до 30

1.

var x: integer;

begin

   randomize;

   x := random(9000) + 1000;

   x := x - x mod 10;

   writeln(x);

end.

2.

var x, _sum: integer;

begin

   randomize;

   _sum := 0;

   x := random(9000) + 1000;

   x := x - x mod 10;

   writeln('Случайное число:', x);

   while x > 0 do

       begin

       _sum := _sum + x mod 10;

       x := x div 10;

       end;

   if _sum mod 3 = 0 then

       writeln('Сумма цифр кратна трём!')

   else

       writeln('Сумма цифр не кратна трём!');

end.

3.

var x, _sum: integer;

begin

   randomize;

   _sum := 0;

   x := random(9000) + 1000;

   writeln('Случайное число: ', x);

   write('Если записать его в обратном порядке: ');

   while x > 0 do

       begin

       write(x mod 10);

       x := x div 10;

       end;

end.

Задание 15

num = int(input("Введите число: "))

num_help = num

num_len = 0

first_el = num

last_el = num % 10

while num_help:  # Определяем длину числа

   num_help //= 10

   num_len += 1

count = 0

while count != num_len - 1:  # while num_help > 0:

   first_el //= 10  # first_el = first_el // 10

   count += 1

num //= 10  # Выявляем середину

num %= 10 ** (num_len - 2)  # Возводим в степень

print(str(last_el) + str(num) + str(first_el))

Когда изучите строковый тип данных и срезы, можно будет сделать и так:

num = input("Введите число: ")

print(num[-1] + num[1:-1] + num[0])

Задание 16

num = int(input("Введите число: "))

div = num

mod = 0

last_el = num % 10

count = 0

num_help = num

num_len = 0

while num_help:  # Определяем длину числа

   num_help //= 10

   num_len += 1

while div:

   mod = div % 10

   div //= 10

   if mod == last_el:

       count += 1

if count == num_len:

   print("Цифры в числе одинаковые")

else:

   print("Цифры в числе разные")

Аналогично 1-ому:

num = input("Введите число: ")

if num == num[::-1]:

   print("Цифры в числе одинаковые")

else:

   print("Цифры в числе разные")