Переведём слагаемые в 2-ную систему счисления.
Из 8-чной в 2-чную переводим, просто выписывая вместо каждой цифры 8-чного числа её трёхзначный двоичный код (см. таблицу 1):
740 --> 111100000
Аналогично, из 16-чной в 2-чную переводим, просто выписывая вместо каждой цифры 16-чного числа её четырёхзначный двоичный код (см. таблицу 2):
F4B --> 111101001011
Складываем два числа в 2-чной системе:
111100000 + 111101001011 = 1000100101011
1 - телефон (по кол-ву букв в словах)
2 - лев (число повторяется через два)
3 - 13,26,13 (закономерность: +2, *2, /2)
Var A:integer;
Begin
WriteLn('Введи двузначное число');
Read(A);
if (A mod 10 + A div 10) mod 2 = 0 then Write('Сумма цифр чётная')
else Write('Сумма цифр НЕчётная')
End.
Var a,b,c,i:integer;
begin
i:=0;
Write('1-число='); Readln(a);
Write('2-число='); Readln(b);
Write('3-число='); Readln(c);
if a=0 then i:=i+1;
if b=0 then i:=i+1;
if c=0 then i:=i+1;
Writeln(i,' чисел равных нулю');
end.
<span>Если "родителей должно быть не менее одной трети" (т.е. больше или равно), то в первом примере (где n=27, k=7) ответ должен быть 2, а не 3. 7+2=9 - это как раз 1/3 от 27. </span>
var n,k,m:integer;
begin
writeln;
readln(n);
readln(k);
m:=(n-1) div 3+1;
if m-k>0 then writeln(m-k) else writeln(0);
end.
Пример:
27
7
2