Номер 2 правильный, кстати я тоже прямо сейчас инфознайку решаю
Var
A,B,C:real;
Begin
Write('A = ');ReadLn(A);
Write('B = ');ReadLn(B);
Write('C = ');ReadLn(C);
if A>B then
Begin
if A>C then A:=A/3
else C:=C/3;
if B<C then B:=B*3
else C:=C*3
End
else
Begin
if B>C then B:=B/3
else C:=C/3;
if A<C then A:=A*3
else C:=C*3
End;
WriteLn;
WriteLn('A = ',A);
WriteLn('B = ',B);
WriteLn('C = ',C);
End.
64=2^6, т.е. для кодирования символа используется 6 бит.
<span>10*32*64*6 = 122880 бит = 15360 байт</span>
Ну если размышлять логически то ответ: 1323141
Var s,t:string; k,i:integer;
begin
readln(s);
t:='шина';
k:=0;
for i:=1 to length(t) do
if pos(t[i],s)>0 then k:=k+1;
if k=length(t) then writeln('YES')
else writeln('NO');
end.
Пример:
шикарный
YES