Var i,s: integer; begin s: =0; //сумматор обнуляем обязательно for i: =1 to 100 do if i mod 2=0 then s: =s+i; //узнаем четное ли число и записываем его в нашу сумму writeln('сумма четных чисел равна ',s); end; все что после // (два слэша) можно удалить, так пишутся комментарии в программе
Спасибо
Ответ дал: Гость
program p1; vara: string; i: integer; beginreadln(a); for i: =length(a) downto 2 dobeginif a[i]=a[i-1]then delete(a,i,1); end; writeln(a); end.
ввел: asdfsss
результат: asdfs
либо я не знаю либо нужно подумать. но символу нельзя присвоить число ему можно присвоить только символ.
Ответ дал: Гость
i = log₂ (1/p)
log₂ (1/p) = 4
1/p = 2⁴
1/p = 16
p = 1/16 вероятность появления автобуса n1
вероятность появления автобуса n2: р = 1/16 : 2 = 1/32
i = log₂ (1/1/32) = log₂ 32
i = 5 бит
5 бит информации несет сообщение о появлении автобуса n2.
Популярные вопросы