1985 год выпуска, переводим и получаем:
110011000101
Ответ: 6 единиц
Var n:longint;
function kol(n:integer):integer;
begin
if n<10
then kol:=1
else kol:=kol(n div 10)+1;
end;
begin
write('n = ');
readln(n);
writeln('k = ',kol(n));
end.
Пример:
<span>n = 15324
k = 5</span>
Программа (без проверки исходных данных):
var a,b,y,z:real;
begin
write('a, b: ');
readln(a,b);
y:=cos(sqrt(a+b));
z:=ln(sin(y)/cos(y));
writeln('ln(tg(cos(sqrt(a+b)))) = ',z);
end.
Пример:
a, b: 0.5 0.8
ln(tg(cos(sqrt(a+b)))) = -0.813058267838025
2) Dim A as integer (объявление переменной)
A=val(Console.ReadLine()) (ввод переменной)
If a mod 2 = 0 then
Writeline =(" Чётное")
else
Writeline = ("Нечётное")
Я в другом языке программирую, но если такой вариант пойдёт, могу остальные дописать. <span />
Двоичная - 0001 1111
восьмеричная - 37