На уроке физики учитель предложил ребятам дома провести эксперимент, который наглядно продемонстрирует ответ на во Имеет ли воздух вес?». Для эксперимента требуются два одинаковых воздушных шара, проволочная вешалка, две прищепки, булавка, нить. Расставьте в правильном порядке шаги алгоритма, которому должны следовать ученики. 1) Надуть два шарика и завязать каждый нитками одинаковой длины. 2) К каждому концу висящей на поручне вешалки прикрепить прищепкой воздушный шарик. Уравновесить вешалку. 3) Проткнуть один шарик булавкой и через некоторое время проткнуть другой. 4) Приготовить два одинаковых шарика, нитки, иголку, вешалку. Повесить вешалку на поручень. 5) Описать наблюдаемые явления. В ответе запишите последовательность без пробелов, например, 13425

ответ:41235

Объяснение:

Может быть так, но я сомневаюсь

1.
var x,y:integer;
begin
write('x = ');
readln(x);
if x>0 
 then y:=1
 else if x=0 then y:=0 else y:=-1;
writeln('y = ',y);
end.

Пример:
x = -5
y = -1

2.
var a,b,c,x1,x2,d:real;
begin
writeln('Введите a, b, c:');
readln(a,b,c);
d:=b*b-4*a*c;
if d>0
 then begin
      x1:=(-b+sqrt(d))/(2*a);
      x2:=(-b-sqrt(d))/(2*a);
      writeln('x1 = ',x1,' x2 = ',x2);
      end
  else if d=0 then begin
                   x1:=-b/(2*a);
                   writeln('x = ',x1);
                   end
               else writeln('Корней нет');
end. 

Пример:
Введите a, b, c:
2 5 -3
x1 = 0.5 x2 = -3

3.
var a,b,c:real;
begin
writeln('Введите a, b, c:');
readln(a,b,c);
if (a<=b)and(b<=c)
 then begin
      b:=a; c:=a;
      end
 else begin
      a:=-a; b:=-b; c:=-c; 
      end;
writeln('a = ',a,' b = ',b,' c = ',c);
end. 

Пример 1:
Введите a, b, c:
2 5 9
a = 2 b = 2 c = 2

Пример 2:
Введите a, b, c:
2 9 5
a = -2 b = -9 c = -5

Using System;

//Напишите программу которая определяет в заданном числе заданную цифру.
//Цифра это числа от 0 до 9

namespace NoNamespace {
    internal class Program {

        private static void Main() {
            Console.WriteLine(IsDigitInNumber(123.8, 2));
            Console.WriteLine(IsDigitInNumber(1, 1));
            Console.WriteLine(IsDigitInNumber(103.28, 2));
            Console.ReadLine();
        }

        private static int IsDigitInNumber(double number, uint digit) {
            if (0 > digit || digit > 9)
                throw new Exception("Не верный формат цифры");

            var n = number.ToString().IndexOf(digit.ToString());
            var p = number.ToString().IndexOf(".");
            //Console.WriteLine($"number = {number} digit = {digit} n = {n} p = {p} A = {p-n}");
            return p-n;
        }
    }
}