Var age:integer;
begin
writeln('Сколько вам лет?');
readln(age);
if age<=0 then writeln("Так не бывает, т.к. вы ещё не родились и не можете писать");
if age>100 then writeln('Вы хорошо сохранились!') else writeln('<span>Лет до 100 расти вам без старости!</span>');
end.
5 бит информации означает, что шанс достать красный карандаш равнялся 1/2⁵, т.е 1/32.
Пусть красных карандашей было k, тогда всего карандашей было k+3k+56 или 4k+56 штук. Шанс достать красный карандаш равен k/(4k+56) и составим уравнение:
Красных карандашей в коробке 2, белых 3×2=6, синих 56, всего 2+6+56=64.
Следовательно вероятность появления красного карандаша составит 2/64=
<em>1/32</em>, белого- 6/64=
<em>3/32</em>, синего- 56/64=
<em>7/8</em>
Var
s:string;
n:integer;
begin
Write('Вводите: '); Readln(s);
n:=Length(s);
s:=Copy(s,n-2,3)+Copy(s,4,n-6)+Copy(s,1,3);
Writeln(s)
end.
**************************************************
var
s:string;
c:char;
i,n:integer;
begin
Write('Вводите: '); Readln(s);
n:=Length(s);
for i:=1 to 3 do begin
c:=s[i]; s[i]:=s[n-3+i]; s[n-3+i]:=c
end;
Writeln(s)
end.
Результат
Вводите: Информатика
икаорматИнф
Byte, Short, Integer, Long, Single, Double
Максимальное количество элементов в объединении множеств получится в случае, когда в этих множествах нет одинаковых элементов. Это количество = 18+110 = 128