01000100 01110101 01100010 01101001 01101110 01110011 01101011 01100001 01101001 01100001
1. 2.
2. 2.
3. 34.
4. 142(10) = <span>10001110(2). Значащих нулей: 4.
</span>
Мда паскаль конечно жесть щас напишу
Program Zadacha
Var a, b, c, d : integer;
Begin
Write
read( a, b, c, d);
P:= (a+b+c+d) / z;
ch:= SQRT (p(p-a) (p-b) (p-c) (p-d)):
write
end.
Примерно так, так как я не очень знаю программирование... <span />
Составим алгоритм отбора чисел, удовлетворяющих условию задания.
В "списке" выделяются пары соседних элементов и в каждой паре проверяется, превышает ли значение второго элемента пары значение первого элемента. Если превышает, второй элемент значение второго элемента передается на выход. Для списка из n элементов процесс повторятся n-1 раз.
В условии есть один неприятный момент. Количество элементов в списке нигде не указано. Пока еще, увы, привычный большинству "школьный" паскаль не умеет работать с такими списками, а вот PascalABC.NET 3.3 может, поэтому используем его.
<em>// PascalABC.NET 3.3, сборка 1627 от 27.01.2018</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
ReadlnString.ToIntegers.Pairwise.Where(t->t[1]>t[0]).Select(t->t[1]).Println
end.
<u>Результат</u>
1 5 2 4 3
5 4
Не дружище, на пять страниц доклад никто делать не будет!