РЕШИТЬ ЗАДАЧКУ... Два бомбардировщика поочередно сбрасывают бомбы на цель до первого попадания. Вероятность попадания в цель первым бомбардировщиком равна 0, 7, вторым - 0, 8. Вначале сбрасывает бомбы первый бомбардировщик. Составить первые четыре члена закона распределения дискретной случайной величины Х - числа сброшенных бомб обоими бомбардировщиками (т. е. ограничить возможными значениями Х, равными 1, 2, 3 и 4

x1=1 – сброшена одна бомба

p1=0,7 – ( первый попал)

x2=2 – сброшено две бомбы

p2=0,3·0,8=0,24 ( первый промахнулся, второй попал)

x3=3 – сброшено три бомбы

р3=0,3·0,2·0,7=0,042 ( первый промахнулся, второй промахнулся, первый попал)

x4=4 – cброшено четыре бомбы

p4=0,3·0,2·0,3·0,8=0,0144 ( первый промахнулся, второй промахнулся, первый промахнулся, второй попал)

1)program fagasg;
var x1,y1,r: real;
begin
Writeln('Введите х1');
readln(x1);
Writeln('Введите у1');
readln(y1);
r:=sqrt(x1*x1+y1*y1);
Writeln('Расстояние от х1 до у1=',r);
end.
2)Program fsgasghfd;
var c,s: real;   
a,b: integer;
begin
Writeln('Введите первое целое число');
readln(a);
Writeln('Введите второе целое число');
readln(b);
Writeln('Введите дробное число');
readln(c);
If ((a>0) and (b>0) and (c>0)) or ((a<0) and (b<0) and (c<0)) then 
s:=a+b+c
else writeln('Знаки разные');
If ((a>0) and (b>0) and (c>0)) or ((a<0) and (b<0) and (c<0)) then Writeln('Сумма чисел:',s);
end.
3)Program wrqrwqr;
var A: Array[1..100] of integer;   
B: Array[1..100] of integer;   
C: Array[1..100] of integer;   
s,i,h,g: integer;
begin
h:=0;
g:=0;
Writeln('введите размерность массива');
readln(s);
Writeln('Вводится первый массив');
For i:=1 to s do 
begin   
Writeln('Введите элемент массива №',i);   
readln(A[i]); 
end;
Writeln('Вводится второй массив');
For i:=1 to s do 
begin   
Writeln('Введите элемент массива №',i);   
readln(B[i]); 
end;
For i:=1 to s do  begin   
If A[i]>B[i] then C[i]:=A[i]     
else C[i]:=B[i];   
If C[i] mod 2=1 then h:=h+1;   
If C[i] mod 2=0 then g:=g+1; 
end; 
Writeln('Количество нечётных элементов в массиве:',h); 
Writeln('Количество чётных элементов в массиве:',g);
end.

Привет! Для решения данной задачи, нам потребуется разложить данное натуральное число на цифры и проанализировать каждую из них.

1. Порядковый номер максимальной цифры, считая номера от конца числа:
- Сначала разложим число на цифры. Для этого будем постепенно делить число на 10 и брать остаток от деления.
- Найдем максимальную цифру из полученных. Для этого пройдемся по всем цифрам и будем сравнивать их со значением максимальной цифры.
- Запомним номер цифры, имеющей максимальное значение. Для этого заведем переменную, которая будет хранить индекс этой цифры (начиная от 1).
- Если в процессе прохода найдется еще одна цифра с бОльшим значением, обновим значение максимальной цифры и индекса.
- По окончанию прохода получим порядковый номер максимальной цифры, считая номера от конца числа.

2. Порядковый номер минимальной цифры, считая номера от конца числа:
- Алгоритм аналогичен предыдущему, только теперь будем находить минимальную цифру.
- Получим порядковый номер минимальной цифры, считая номера от конца числа.

Давай теперь напишем программу на языке Pascal, которая это решает:

```pascal
program FindNumbers;
var
num, digit, maxDigit, minDigit, maxIndex, minIndex, count: integer;

begin
Write('Введите натуральное число: ');
Readln(num);

maxDigit := 0;
minDigit := 9;
maxIndex := -1;
minIndex := -1;
count := 1;

while num <> 0 do
begin
digit := num mod 10;

if digit > maxDigit then
begin
maxDigit := digit;
maxIndex := count;
end;

if digit < minDigit then
begin
minDigit := digit;
minIndex := count;
end;

num := num div 10;
count := count + 1;
end;

writeln('Порядковый номер максимальной цифры, считая номера от конца числа: ', count - maxIndex + 1);
writeln('Порядковый номер минимальной цифры, считая номера от конца числа: ', count - minIndex + 1);
end.
```

Надеюсь, что данное пошаговое решение и программный код помогут тебе понять, как решить данную задачу. Если у тебя возникнут вопросы, не стесняйся задавать их! Я всегда готов помочь!