var
y,n:integer;
x:real;
begin
n:=1;
write('x= ');
readln(x);
write('y= ');
readln(y);
while x < y do <em>begin</em>
inc(n);
x:=x*1.1;
<em>end;</em>
writeln(n);
<span>end.</span>
16 =2^4 ----> 4 бита для кодировки одного символа в указанном алфавите.
код номер символа
0000 1
0001 2
0010 3
0011 4
0100 5
0101 6
0110 7
0111 8
1000 9
1001 10
1010 11
1011 12
1100 13
1101 14
1110 15
1111 16
Программу я не смогу написать, но примерный алгоритм дам.
Если (M = 1, 3, 5, 7, 8, 10, или 12) И (D <= 30), то (D = D + 1)
Если (M = 1, 3, 5, 7, 8, 10) И (D = 31), то (M = M + 1, D = 1)
Если (M = 12) И (D = 31), то (G = G + 1, M = 1, D = 1)
Если (M = 4, 6, 9, 11) И (D <= 29), то (D = D + 1)
Если (M = 4, 6, 9, 11) И (D = 30), то (M = M + 1, D = 1)
Если (M = 2) И (D <= 27), то (D = D + 1)
Если (M = 2) И (G mod 4 <> 0) И (D = 28), то (M = 3, D = 1)
Если (M = 2) И (G mod 4 = 0) И (D = 28), то (D = D + 1)
Если (M = 2) И (G mod 4 = 0) И (D = 29), то (M = 3, D = 1)
Если (M = 2) И (G = 1900 или 2100) И (D = 28), то (M = 3, D = 1)
В последней строчке я учёл разницу между Григорианским и Юлианским календарями.
По Юлианскому после 28.02 1900 или 2100 года наступит 29.02.
По Григорианскому наступит 01.03.
Var
A,Max1,Max2:integer;
Begin
Max1:=0;
Max2:=0;
Repeat
Read(A);
if A>Max1 then
Begin
Max2:=Max1;
Max1:=A;
End;
Until A=0;
WriteLn(Max2);
End.
