Var
A,C,k:real;
Begin
Write('A = ');ReadLn(A);
Write('C = ');ReadLn(C);
k:=0;
While A<=C do
Begin
A:=A*1.25;
k:=k+1;
End;
WriteLn('k = ',k)
End.
100 в двоичной системе счисления это 4
0-0
1-1
10-2
11-3
100-4
14 в восьмиричной это 12
от 0 до 7 аналогично 10-ти Рино системе
10-8
11-9
12-10
13-11
14-12
результатом сложения будет 16
Ответ 16
На картинке все написано.
Var
i,N,A,k:integer;
Begin
k:=0;
Write('N = ');Read(N);
For i:= 1 to N do
Begin
Read(A);
if (A mod 10 = 8) then k:=k+1;
End;
WriteLn(k);
End.
<span>Совокупность программных средств обеспечивающих управление работой компьютера и его взаймодействие с пользователем это:
1)операционная система</span>