Ребят мне прям решите

program nm12;

var a, d : integer;

begin

    writeln (' vvedite diametr kruga i storony kvadrata ');

    readln (d);

    readln (a);

    if d< =a then writeln (' krug pomestits9 v kvadrate ')

              else writeln (' krug ne pomestits9 v kvadrate ');

    readln;

end.

в чем отличие пользователя от программиста если кто-то работает с компьютером, то это не значит, что он программирует или умеет программировать. пользователь потому и называется пользователем, что он просто использует возможности компьютеров и программ, и чаще всего далек от способов их создания. же программиста создавать программы для тех, кому они нужны, т. е. для пользователей. причем системные программисты в основном программы для компьютерами, а программисты прикладные , прежде всего, пишут программы полезные массовому пользователю. в принципе, всех, кто работает с компьютером можно разделить на три категории: 1. программисты, программы для облегчения труда других пользователей. 2. программирующие пользователи, которые программы для решения своих , облегчения собственного труда. 3. непрограммирующие пользователи, желающие решать свои , используя уже существующие программы, не занимаясь программированием.

1 способ

применим метод уменьшения в два раза области неопределенности(путь к стелажу выделен жирным шрифтом):

16

8-8

4-4 4-4

2-2 2-2 2-2 2-2

1-1 1-1 1-1 1-1 1-1 1-1 1-1 1-1

мы потратили 4 бита информации на поиск нужного стеллажа, теперь нащдо найти нужную нам полку:

6

3-3

2-1 2-1 

1-1 1 1-1 1

потрачено еще 3 бита информации. всего информации 4+3 равно 7 бит информации. 

2 способ:

воспользуемся формулой: 2

2^i=n

количество информации о нахождении стеллажа:

2^4=16

i=4 бита

количество информации о нахождении полки:

2^i6 поэтому возьмем число 2^i так чтобы результат находился рядом с числом 6. так как если число будет меньше 6 то мы не сможем точно получить информация, то  2^i должно быть больше 6. значит:

2^3=8

i=3

4+3=7 бит информации

var

  a: array[1..5]of integer;

  i: integer;

begin

  for i: =1 to 5 do read(a[i]);

for i: =1 to 5 do write(a[i],' ');

writeln;

for i: =1 to 5 do if a[i]> =1024 then writeln(a[i] div 1024);

writeln;

end.