Составьте программу для вычисления величины работы,совершенной при равномерном подъёме груза массой M кг на высоту H метров. Ускорение свободного падения описать как константу G = 9,81.​

64) на 12 байт.

65) в 32 раза.

Объяснение:

64. Информационный объём одного сообщения составляет 0,5 Кбайт, а другого - 500 байтов. На сколько байтов информационный объём первого сообщения больше объёма второго сообщения?

Дано:

I₁ = 0,5 Кбайт

I₂ = 500 байт

Найти: | l₁ - l₂ |

I₁ = 0,5 * 1024 байт = 512 байт

I₁ - I₂ = 512 байт - 500 байт = 12 байт

ответ: на 12 байт.

65. Информационный объём одного сообщения составляет 0,5 Кбайт, а другого - 128 битов. Во сколько раз информационный объём первого сообщения больше объёма второго изображения?

Дано:

I₁ = 0,5 Кбайт

I₂ = 128 бит

Найти: l₁ / l₂

I₁ = 0,5 * 1024 байт = 512 байт = 512 * 8 бит = 4096 бит

I₁ / I₂ = 4096 бит / 128 бит = 32 (р.)

ответ: в 32 раза.

Program task1;
var  a, i, kol :integer;
begin
  for i:= 1 to 3 do  begin    readln(a);    if a > 0 then      inc(kol);  end;  writeln(kol);
end.

program task2;
var  n, result :integer;
function summa (x :integer) :integer;  var     i, sum :integer;  begin    for i:= 1 to x do      sum:= sum + i;    summa:= sum;  end;
begin
  readln(n);  result:= summa(n);  writeln(result);
end.

program task3;
var  i, n, growth, sum, kol :integer;  SrGrowth :real;
begin
  readln(n);  sum:= 0; kol:= 0;  for i:= 1 to n do  begin    readln(growth);    sum:= sum + growth;    inc(kol);  end;  SrGrowth:= sum/kol;  writeln(SrGrowth);
end.

program task4;
var  l :integer;
begin
  readln(l);  l:= l div 100;  writeln(l);
end.