Расписание уроков, календарь, журнал, школьный дневник
формальные языки это те, которые придумали люди , но на них они не разговаривают, а используют в своей профессиональной деятельности
поэтому формальными можно считать, например, 1,2,5,6
Вероятность в первый раз вытащить из 10 бочонков цифру от 5 до 9 равна 5/10=1/2
После этого вероятность вытащить во второй раз цифру от 0 до 3 из оставшихся 9 бочонков равна 4/9.
Умножая вероятности (1/2*4/9=2/9)
Ответ: 2/9.
Var a,b,k1,k2,s:integer;
<span>begin </span>
<span>s:=0; </span>
<span>k1:=0; </span>
<span>writeln('Введите начало и конец отрезка'); </span>
<span>read(a,b); </span>
<span>k2:=b-a+1; </span>
<span>repeat </span>
<span>if b<0 then break; </span>
<span>s:=s+b; </span>
<span>b:=b-1; </span>
<span>inc(k1); </span>
<span>until (b=-1) or (b=a-1); </span>
<span>writeln('Сумма всех целых положительных чисел на отрезке = ',s); </span>
<span>writeln('Количество отрицательных целых чисел = ', k2-k1); </span>
<span>end.</span>
Вот тебе для двоичной системы, дальше сам додумай,я просто в переводах в системы счисления не силён,только двоичную толком знаю))
Program sist;
var a,b,f:integer;
c,p,i:string;
begin
readln(a); //вводим число
b:=2; //это у нас будет степень, сам потом переделаешь,чтоб вводить её тоже
while a>0 do //тут задаём условие (пока a>0 выполняем действия:)
begin //начало скобки(должен знать)
if a mod b=0 then c:='0' else c:='1'; //проверяем условие(если остаток от деления а поделить на 2 равен 0 то строка равна символу 1 иначе символ 0)
a:=a div b; //делим а на b без остатка
i:=i+c; //присваиваем строке i результат: строка i+результат строки c
end; //конец скобки
for f:=length(i) downto 1 do //начинаем цикл от большего к меньшему(от количества символов в строке i до 1)
p:=p+i[f]; //(к строке p прибавляем символ строки i) это относится к нашему циклу
i:=p; //тут понятно думаю
writeln(p, '(',b,')'); //выводим результат
<span>end.</span>