1) a= b5 (в 16ричной системе счисления) b= 267 (в 8ричной системе счисления) вычислить a< c( в двоичной системе счисления)< b

a=1011 0101 < c=1011 0110 < b=1011 0111

1)

var

 s : real;

 i, n : integer;

begin

 s := 0;

 read (n);

 for i := 1 to n do s := s + 1 / i;

 writeln (s);

end.

 

2)

var

 a, i : integer;

begin

 a := 1;

 for i := 1 to 8 do

 begin

   a := a * 2;

   writeln ('Через ', i * 3, 'часов будет ', a, ' амеб');

 end;

end.

 

3)

var

 n, i : integer;

 x, s : real;

begin

 s := 0;

 read (n, x);

 for i := 1 to n do

   s := s + sin (i * x);

 writeln (s);

end.

 

4)

var

 n, a, r, i : integer;

begin

 r := 1;

 read (a, n);

 for i := 1 to n do r := r * a;

 writeln (r);

end.

Объяснение:

ответ:

объяснение:

алгоритм:

1) определяем первую, вторую и третью цифру

2) ищем минимальную цифру числа

3) считаем их количество

var a, sotni, desatki, edinicy, min_number, n: integer;

begin

read(a);

sotni : = a div 100;

desatki : = a div 10 mod 10;

edinicy : = a mod 10

if sotni < desatki then

begin

if desatki < edinicy then min_number : = sotni

else

if sotni < edinicy then min_number : = sotni else min_number : = edinicy

end

else

if desatki > edinicy then min_number : = edinicy

else

min_number : = desatki;

n : = 0;

if min_number = desatki then n += 1;

if min_number = sotni then n += 1;

if min_number = edinicy then n += 1;

print(n)

end.

теперь рассказываю, почему надо учить питон. та же программа:

number = list(map(int,

print(number.count(min(