Print("Введите n:")
n = int(input())
m = 0
for i in range(1,n):
m = m+45
if i % 2 == 1:
m = m+5
else:
m = m+15
m = m+45
print('%(h)d:%(min)02d' % {"h":9 + m // 60, "min":m % 60})
Пример:
<span>Введите n: 5
13:25</span>
Смотря по задаче ты всё правильно решил.
N у тебя это мощность алфавита
отсюда узнаём вес символа 64=2^6 -> 6
количество символов будет 256 на 128 = 32 768
информационный объём равен количество символов на вес одного символа
32 768 * 6 = 196 608
Тут у тебя всё полностью правильно. только вместо большой i (ай английской) около =6 поменяй на маленькую как в 2^i
//PascalAbc.net V 3.3
const n = 30;
var a:array[1..n] of integer;
n3,n4,n5,i:integer;
begin
for i:=1 to n do begin
a[i]:=random(3,5);
if a[i]=3 then inc(n3);
if a[i]=4 then inc(n4);
if a[i]=5 then inc(n5);
end;
writeln('3 - ',n3);
writeln('4 - ',n4);
writeln('5 - ',n5);
print(a);
end.