Var i, x, s: integer;begin<span> s := 0;</span><span> for i := 0 to 9 do</span><span> begin</span><span> read(x);</span><span> s := s + x;</span><span> end;</span><span> writeln('summa: ', s);</span><span>end.</span>
var
A: array [1..12] of integer; //Массив, состоящий из 12 целых чисел
i: integer;
begin
for i:= 1 to 12 do //Вводим элементы массива
begin
writeln('Введите А[', i, ']');
readln(a[i]);
end;
write('Исходный массив: ');
for i:= 1 to 12 do {Распечатываем исходный массив и заменяем все положительные четные элементы на 5}
begin
write(a[i], ' ');
if (a[i] > 0) and (a[i] mod 2 = 0) then
a[i]:= 5;
end;
writeln;
write('Измененный массив: ');
for i:= 1 to 12 do //Распечатываем измененный массив
write(a[i], ' ');
writeln; {Переход на новую строку, чтобы при следующем запуске программы информация выводилась с новой строки}
end.
Если все правильно, отметь решение как лучшее)
Ответ:
Чтобы сложить дроби с одинаковыми знаменателями, надо сложить их числители, а знаменатель оставить без изменений.Чтобы вычесть дроби с одинаковыми знаменателями, надо из числителя первой дроби вычесть числитель второй, а знаменатель опять же оставить без изменений.
Объяснение:
Если бы билет был всего 1, то сообщение о том, что вытащили билет 1, вообще не несло бы никакой информации, потому что мы заранее знаем, что может выпасть ТОЛЬКО билет номер 1, и никакой другой. 1 = 2^0.
Если бы билетов было 2, с номерами, то сообщение, что выпал билет 1, или что выпал билет 2, несло бы 1 бит информации, он может принимать значения 0 и 1. Условно можно обозначить билет 1 = 0, билет 2 = 1. 2 = 2^1.
Продолжая также дальше, мы получим, что, если у нас есть 2^n билетов, то сообщение, что вынули один билет номер k, несет n бит информации.
Ответ: сообщение, что из 32 = 2^5 билетов вынули билет 23, несет 5 бит.
В ИНЕТРЕНЕТЕ ВВЕДИ ПЕРВУЮ СТРОКУ,ВЫДАСТСРАЗУ