Var n,k,i:integer;
begin
write('n = ');
readln(n);
k:=0;
for i:=1 to 6 do
begin
if n mod 2 = 1 then begin k:=i; break; end;
n:=n div 10;
end;
if k=0
then writeln('В числе нет нечётных цифр')
else writeln('k = ',k);
end.
Пример:
n = 123456
k = 2
Var
a,s:integer;
begin
s:=0;
repeat
readln(a);
s:=s+a;
until a=0;
writeln('Сумма чисел: ',s);
<span>end</span>
К - 0
Л - 1
Р - 2
Т - 3
(четверичная система счисления (используется 4 цифры))
Нужно найти слово стоящее под номером 67 => это 66 в десятичной системе счисления(не 67,т.к. последовательность начинается с 0)
66(10) переведём в четверичную систему счисления - это 1002 = лккр
Ответе: лккр
var
x,x1:integer;
begin
readln(x);
if (x div 10 + x mod 10 >= 10) then writeln ('Является')
else begin x1:=x; while (x1 div 10 + x1 mod 10 < 10) do x1:=x1+1; end;a
if (x div 10 + x mod 10 < 10) then writeln('Нужно увеличить на ',x1-x);
end.
Мы имеем дело с 4 разрядным числом в 5ричной системе счисления
А=0, К=1, Л=2, О=3, Ш=4 судя по порядку
Первое слово на О будет иметь вид ОААА = 3000_5 = 3*5^3 = 375_10
Поскольку номерация начинается с нулевого слова, то номер <span>ОААА будет 376</span>