Program n_1;
var a, b, c, d:integer;
begin
readln(a);
b:=a mod 10;
c:=a div 10 mod 10;
d:= a div 100 mod 10;
writeln('Число ', a, ' состоит из ', d, ' сотен, ', c, ' десятков и ', b, ' единиц');
end.
Ответ:
анера -арена
анизрок - корзина
казкюр - рюкзак
руко -
урок
евнса - весна
омркмоу одджь ен тсарешн - мокрому дождь не страшен
n = int(input())
m = int(input())
ans = 0
for i in range(m, n-1, -1):
buf = 0
for y in str(i)[1:]:
y = int(y)
if y%2==0 and y != 0:
buf += 1
if (y%4==0 and y!=0) or buf >= 2:
ans = i
break
if ans != 0:
print(i)
break
Универсальный значит удобный. Подходит для всего