1. Совершает ли ученик механическую работу, опускаясь
на лифте с верхнего этажа здания на первый?
2. Какой из блоков (подвижный или неподвижный) дает
выигрыш в силе? Во сколько раз?
3. Какую работу надо совершить для того, чтобы поднять
груз весом 2 Н на высоту 50 см? (ответ: 1 Дж)
4. Мальчик, сев на один конец доски, положенной на
бревно, качается на ней. Чем уравновешивается сила тяжести
мальчика?
5. Трактор равномерно тянет плуг, прилагая силу 10 кН. За
10 мин он проходит путь, равный 1200 м. Определите
мощность, развиваемую при этом двигателем трактора.
(ответ: 20 кВт)
6. Рабочий поднимает груз массой 100 кг на высоту 0,3 м,
пользуясь рычагом. К большому плечу рычага приложена
сила 700 Н, под действием которой конец рычага опускается
на 0,6м. Определите КПД рычага. (ответ: 70%)
7. Найдите мощность потока воды, протекающей через
плотину, если высота падения воды 25 м, а расход ее — 120
м 3 в минуту. (ответ: 0,5 МВт)
8. Почему грузовой автомобиль должен иметь более
сильные тормоза, чем легковой?
9. По наклонной плоскости перемещают груз весом 3,5 кН
на высоту 1,4 м. Вычислите работу, совершаемую при этом,
если КПД наклонной плоскости 60%. (ответ: 8,2 кДж)

1)

var

  a: 100..999;

  a1, a2, a3: 0..9;   //а1 - сотни, а2 - десятки, а3 - единицы

begin

  writeln('введите натуральное трехзначное число');

  readln(a);

  a1: = a div 100;

  a2: = (a mod 100) div 10;

  a3: = a mod 10;

  writeln('полученное число:   ', a1, a3, a2);

end.

2)

var

  a: 100..999;

  a1, a2, a3: 0..9;

begin

  writeln('введите натуральное трехзначное число');

  readln(a);

  a1: = a div 100;

  a2: = (a mod 100) div 10;

  a3: = a mod 10;

  writeln('полученное число:   ', a2, a1, a3);

end.

3)

var

  a: 100..999;

  a1, a2, a3: 0..9;

begin 

  writeln('введите натуральное трехзначное число');

  readln(a);

  a1: = a div 100;

  a2: = (a mod 100) div 10;

  a3: = a mod 10;

  writeln('полученное число:   ', a3, a1, a2, a3);

end.

4)

var

  a: 1000..9999;

  a1, a2, a3, a4: 0..9;

begin

  writeln('введите натуральное четырехзначное число');

  readln(a);

  a1: = a div 1000;   //тысячи

  a2: = (a mod 1000) div 100;   //сотни

  a3: = (a mod 100) div 10;   //десятки

  a4: = a mod 10;   //единицы

  writeln('полученное число:   ', a4, a3, a2, a1);

end.

все остальное делается наподобие этого: просто в writeln меняешь местами цифры и все.

var

  a: array[1..1000] of real;

  i, k, n, z: integer;

begin

  writeln('введите число n: ');

  readln(n);

  writeln('введите число z: ');

  readln(z);

  writeln('введите ',n,' действительных чисел (каждое с новой строки): ');

  for i : = 1 to n do

  begin

    readln(a[i]);

    if a[i] > z then

    begin

      a[i] : = z;

      k : = k + 1;

    end;

  end;

  writeln('количество замен: ', k);

end.