CLS
INPUT a
m=0
FOR I=1 TO a
INPUT b
IF (b mod 10=8) AND b>m THEN m=b
END IF
NEXT
PRINT m
END
1) 110100,11₂ = 2⁵+2⁴+2²+1/2+1/4=32+16+4+2/4+1/4=52=52,75
123,41₈=8²+2*8+3+4/8+1/64=64+16+3+33/64=83,515625
1DE,C8₁₆=16²+13*16+14+12/16+8/256=478,78125
2) 1001111110111,0111₂=11767,34₈=5111,7₁₆
1011110011100,11₂= 13634,6₈=179C,C₁₆
<span>3) 1011₂+11₂=1110₂ </span>
1011₂+111,1₂=10010,1₂
11₂+111,1₂= 1010.1₂
1011₂=11
11₂=3
111,1₂=7.5
1110₂=14
10010.1=18.5
1010.1₂=10.5
4) 101₂*1111,001₂= 1001011,101₂
101₂=5
1111,001=15.125
<span>1001011,101₂=75,625</span>
def f():
counter = 0
for num in range(100,1000):
if num % 3 == 0 and num % 10 == 2:
counter += 1
return counter
Уже после ответа придумал еще одну функцию, делает то же самое.
def f():
return len([x for x in range(100, 1000) if x % 3 == 0 and x % 10 == 2])
Браузеры Программы, с помощью которых просматриваются гипертексты в системе Всемирной паутины, называют
1)
Var a:array[1..20] of longint;i,k:longint;
Begin
for i:=1 to 20 do
read(a[i]);
for i:=2 to 20 do
if (abs(a[i-1]) mod 3=0) and (abs(a[i]) mod 3=0) then k+=1;
writeln(k);
End.
2)
Var a:array[1..20] of longint;i,max:longint;
Begin
for i:=1 to 20 do
read(a[i]);
max:=-2000000000;
for i:=1 to 20 do
if (abs(a[i]) mod 11=0) and (a[i]>max) then max:=a[i];
writeln(max);
End.