Tab+ctrl jdkid rocbldgsoshsldhdi
Var N,k,sum : Integer;
Begin
sum:=0;
Readln(N,k);
While N>0 do
Begin
If (N mod 10)>k then sum:=sum+(N mod k);
N:=N div 10;
end;
end.
или так
Var N,k,sum : Integer;
Begin
sum:=0;
Readln(N,k);
While N>0 do
Begin
sum:=sum+(N mod 10)*Ord((N mod 10)>k);
N:=N div 10;
end;
end.
или так
Var N,k : Integer;
Function sum(N,k : Integer) : Integer;
Begin
If (N>0) and ((N mod 10)>k) then sum:=(N mod 10)+sum(N div 10,k) else sum:=0;
end;
Begin
Readln(N,k);
Writeln(sum(N,k));
end.
1) Найдем глубину кодирования одного символа (количество ячеек памяти для одного символа) - i
N = 2^i
64 = 2^i
i = 6 бит нужно для кодирования одного символа 64-символьного алфавита
2) 8640 байт = 69120 бит - содержит все сообщение
3) 69120 бит / 6 бит = 11520 символов всего в сообщении
4) 6 × 30 = 180 строк на 6 страницах
5) 11520 симв / 180 строк = 64 символа в одной строке.
Ответ: 64 символа в одной строке.
101000₂% = 40₁₀% девочек.
1111₂ = 15₁₀ мальчиков.
Пусть в классе всего n учеников, тогда девочек в нем 0.4n, а мальчиков - остальные 0.6n, что составляет 15 человек.
0.6n=15 ⇒ n=15/0.6 = 25
Ответ: 25 человек
В «перо» берешь команду печать, ставишь костюмы разных цветов, создаешь скрипт, где отдельный круг перемещается в точку кота, и в цикле меняешь костюмы