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("Цифры в числе разные")