1номер
вычислите равнодействующую сил f, действующих на тело массой m, движущейся с ускорением а (f=ma).

2 номер
найдите расстояние от точки а до координат.

3 номер
на фабрике "мойдодыр" при стирке 4 кг белья расходуется 250г стирального порошка. определить сколько пачек стирального порошка будет израсходовано на к простыней (вес одной простыни 500г), р пододеяльников (вес одного пододеяльника 600г) и s скатертей (вес одной скатерти 600г). вес одной пачки стирального порошка составляет 750г.

, нужны схемы к каждому номеру!

ответ:

1) (16*32*30)/1024=15кб ответ: 3

2) каждый символ кодируется 16 битами или двумя байтами. всего символов 52, включая пробелы. следовательно, ответ 832 бит.

правильный ответ указан под номером 2

3) най­дем ко­ли­че­ство сим­во­лов в ста­тье:

4 · 48 · 64 = 22· 3 · 24 · 26 = 3 · 212.

один сим­вол ко­ди­ру­ет­ся одним бай­том, 210 байт со­став­ля­ют 1 ки­ло­байт, по­это­му ин­фор­ма­ци­он­ный объем ста­тьи со­став­ля­ет

3 · 212 байт = 3 · 22 ки­ло­байт = 12 кбайт.

пра­виль­ный ответ ука­зан под но­ме­ром 1.

4) -

5)найдем ко­ли­че­ство сим­во­лов в статье:

16 · 32 · 25 = 29·25.

один сим­вол ко­ди­ру­ет­ся двумя байтами, 210 байт со­став­ля­ют 1 килобайт, по­это­му ин­фор­ма­ци­он­ный объем ста­тьи со­став­ля­ет 25 кб.

правильный ответ ука­зан под но­ме­ром 1.

Const
  n = 10;

var
  a: array[0..10] of integer;
  i, s: integer;

begin

//Заполнение массива сл. числами

  for i := 1 to n do
  begin
    a[i] := random(201) - 100;
    write(a[i]:4);
  end;
  writeln;

//1) Все элементы не превышающие число 100

  writeln('Не больше 100 ');
  for i := 1 to n do
    if a[i] <= 100 then
      write( a[i]:4);
  writeln;

// 2) Все четные элементы

  writeln('Кратные двум ');
  for i := 1 to n do
    if a[i] mod 2 = 0 then  
      write( a[i]:4);
  writeln;

// 3) Все элементы, являющиеся трехзначными числами

   writeln('Трехзначные ');
  for i := 1 to n do
    if (a[i] < -99) or (a[i] > 99) then  
      write(a[i]:4);
  writeln;

// 4) Третий, шестой и т.д элементы.

  i := 3;
  writeln(' номера 3, 6, 9 и  т.д.');
  while i < n do
  begin
    write(a[i]:4);
    i := i + 3;
  end;
end.