Самостоятельная по информатике 1.Сколько бит информации несёт сообщение о том что ваш друг прибывает в третьем вагоне поезда состоящего из 8 вагонов? 2. сообщение несёт 9 бит информации. Сколько всего сообщений?
// PascalABC.NET 3.1, сборка 1230 от 27.04.2016 begin var n:=ReadInteger('n='); var a:=MatrixRandom(n,n,10,99); var s:=0; var k:=0; for var i:=0 to n-1 do begin for var j:=0 to n-1 do Print(a[i,j]); Writeln; if a[i,i].IsEven then begin s+=a[i,i]; Inc(k) end; end; if k>0 then Writeln('S=',s/k:0:2) else Writeln('На главной диагонали нет четных элементов') end.
~ это пробелы.
1)
for i in range(1,10+1): //цикл от 1 до 10 включительно
print(i)
2)
for i in range(10,0,-1): //цикл от 10 до 1 включительно
print(i)
3)
for i in range(2,10+1): //цикл от 2 до 10 включительно
if i%2==0:
print(i)
4)
for i in range(1,16+1): //цикл от 1 до 16 включительно
if i%2==1:
print(i)
5)
summ=0 //переменная для хранения суммы
for i in range(1,50+1): //цикл от 1 до 50 включительно
summ+=i
print(summ)
6)
n=int(input())
summ=0
for i in range(1,n+1): //цикл от 1 до n включительно
summ+=i
print(summ)
7)
//не знаю как циклом, но вот проще
print(len(input()))
8)
n=int(input())
for i in range(len(str(n))):
print(n%10)
n//=10
Всё. Можно лучший ответ?