N = int(input())
Bool = 0
while (N>0) and (Bool == 0):
if ((N % 10) % 2 != 0):
print('Имеются нечетные цифры')
Bool = 1
else:
N//=10
if Bool != 1:
print('ничего нет')
начало
делим на 2
есть остаток нет остатка
возводим в куб возводим в кводрат
конец
Это семеричная система счисления:
26(7) = 2*7+6 = 14+6 = 20(10)
13(7) = 7+3 = 10(10)
var
x, a, k, t, i, d: integer;
begin
readln(x);
a := x; k := 0;
while a > 0 do
begin
k += 1;
a := a div 10;
end;
if k mod 2 = 0 then
write('В числе четное количество цифр')
else
begin
t := 1;
for i:=1 to k div 2 do
t *= 10;
d := x div t mod 10;
write(d);
end
end.