Var s: string; a, b: char;
begin
readln(s);
readln(a, b);
for i:= 1 to length(s) do if s[i] = a then s[i] := b;
writeln(s);
end.
Всего ракет 16+8=24
Танк атакуется ракетами "Атака" (ракета "Игла-В" класса "воздух-воздух", не для танков).
Так как атаковали танк, значит была выпущена ракета "Атака", вероятность, что была выпущена именно она, составляет 16/24 = 2/3.
По формуле Шеннона кол-во информации о событии, вероятность которого составляет 2/3 будет равно:
log2(1/(2/3)) = log2(3/2) = -log2(2/3)
Var I,S: integer;
Begin
S:=0;
for I:=0 to 9 do {цикл, перебираем цифры от 0 до 9 и присваиваем их переменной I }
S:=S+sqr(I); {sqr(I)- квадрат I, Вычисляем квадрат и добавляем его в } общую сумму S}
writeln('сумма квадратов цифр = ',S); {выводим сумму}
<span>end.</span>
23-10111
09-00001001
01-00000001
2002-11111010010
2008-11111011000
2017-11111100001
К примеру число aнужно округлить тогда a mod 10; создаем ячейку для округленного числа k:=a mod 10 и b:=a-k; Всё