1)
var
Sk, Ss, R, A : integer;
begin
read(R, A);
Sk := pi*R*R;
Ss := A*A;
If Sk > Ss then write ('Площадь круга больше')
else
If Ss > Sk then write ('Площадь квадрата больше')
else write <span>('Площади равны')
</span>end.
2) не знаю
type diapazon=-20..60;
var a: array [1..15] of diapazon;
i,max,min: integer;
begin
max:=1;
min:=1;
for i:=1 to 15 do
begin
readln(a[i]);
if a[i]>max then max:=a[i];
if a[i]<min then min:=a[i];
end;
if (max/min) > 2 then writeln('Верно') else writeln('Неверно');
end.
1. А.
2. В.
3. В.
4. N = 2^i.
16 = 2^i.
I = 4 бита.
Ответ: А.
5. Б.
6. А.
7. Б.
8. Г.
9. V = H*T*I*K.
T = V/H*I*K = (60*2^23)/22000*16*2 = 15*2^25/2^5*22000 = 3*2^20/4400 = 3 145 728/4400 ~714,9 секунд ~ 11,9 минут ~ 12 минут.
Ответ: Б.
10. N = 2^i.
N = 2^8.
N = 256.
Ответ: В.
хранители долговременной памяти
На С устроит?....................................................................................